帮忙看下这个按时间送积分的代码的错误，亟待解决

[wangbc6]

<%
dim conn,sql,db;
db="数据库名";
set conn = Server.CreateObject("ADODB.Connection");
sql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"");
conn.open sqlstr
function closedb
conn.close
set conn=nothing
end function
dim setTime;
setTime=60; '设置系统赠送积分的时间
%>

<%
set rs=server.createobject("adodb.recordset");
rs.open sql,conn,1,1;
dim loginTime,nowTime,totalTime;
nowTime = DateTime.now.ToString();
loginTime = nowTime();
sql="select * from "表名" where id="" "
set rs=getrs(sql);
if session("name")<>"" then

function addtime()
{
rs.addnew
rs("loginTime")=rsquest.form("logintime");
rs.update();
rs.close();
set rs = nothing;
conn.close();
ser conn = nothing;
}
function addjf()
{
dim thisTime,nextTime;
thisTime = DateTime.now.ToString();
totalTime = DateDiff(intvalue,logintime,thisTime);
sql = "select * from "表名" where id=""";
set rs = rs(sql);
if(totalTime%setTime == 0)
{
jf+=1;
if not rs.eof then
rs("thisTime") = request.form("logintime");
rs.update();
rs.close();
set rs = nothing;
conn.close();
set conn = nothing;
}
else
{
'不到一个小时点击退出或关闭按钮
if(request.Form("form1") == ""||response.Write("onunload") == true )
rs.addnew
rs("totalTime") = request.Form("time");
rs.update();
rs.close;
set rs = nothing;
conn.close;
set conn = nothing;
'下次上线是同一ID
else session.Timeout<=24*setTime)
{
if(request.QueryString("id") == "")
{
dim jlTime
jlTime = "select time from "表名" where id=""";
loginTime = Datetime.now.toString();
nextTime = loginTime;
sql = "select logintime from 表名 where id="""
set rs = getrs(sql);
addtime();
nowTime = Datetime.now.toString();
totalTime = DateDiff(intvlaue,nextTime,loginTime)
totalTime += jlTime;
if(totalTime%setTime == 0)
{
jf+=1;
if not rs.eof then
rs("loginTime") = request.form("logintime");
rs.update();
rs.close();
set rs = nothing;
conn.close();
set conn = nothing;
}

}
}

}
}
end if
%>

[wangbc6]

或者你们谁有更好的借给我参考一下呗 ，将不胜感激

[wangbc6]

或者哪位大虾有更好的 帮忙提供下 小弟将不胜感激

[lffxgthmhfy]

你换个地方发吧，呵呵，这里是ASP.NET,可能会VB的不多啊，你应该到ASP论坛模块中发表。