|
发表于 2019-9-22 23:25:49
|
显示全部楼层
湖北省武汉市
虽然我也不会ASP 但是语法应该都差不多。
这个地方把
function plzx()
dim fen,shi,shu,miao,zong
fen=split(time(),":")
shi=fen(0)*60*60
shu=fen(1)*60
miao=fen(2)
zong=shi+shu+miao
set conn = Server.CreateObject("ADODB.Connection")
on error resume next
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)
set rs=createobject("ADODB.recordset")
if err then
rs.Close
Set rs = Nothing
conn.Close
set conn = Nothing
exit Function
end if
set rs = Server.CreateObject("ADODB.Recordset")
sqi = "update admin set zaixian=2 where "&zong&"- jubing > 305 or jubing -"&zong&" > 305"
rs.Open sqi,conn,1,3
if err then
rs.Close
Set rs = Nothing
conn.Close
set conn = Nothing
exit Function
end if
rs.Close
Set rs = Nothing
conn.Close
set conn = Nothing
plzx = 0
End Function |
|