ASP网站怎么实现每日凌晨自动删除数据
'删除修改操作开始ifMain_LoginPass<>""thendel=request("del")sh=request("sh")id=request("id")re...
'删除修改操作开始
if Main_LoginPass<>"" then
del=request("del")
sh=request("sh")
id=request("id")
re=request("re")
if del<>"" then
conn.Execute("delete from book where id="&del&"")
end if
if sh<>"" and id<>"" then
id=int(id)
sh=int(sh)
conn.Execute("update book set JXK_Types="&sh&" where id="&id&"")
elseif id<>"" then
conn.Execute("update book set JXK_CeoRe='"&re&"' where id="&id&"")
end if
end if
'删除修改操作结束
set rs=server.createobject("adodb.recordset")
action=request("action")
if action="save" then
JXK_Myname=trim(request.form("JXK_Myname"))
JXK_Cat=trim(request.form("JXK_Cat"))
JXK_Content=trim(request.form("JXK_Content"))
if len(JXK_Myname)<2 or len(JXK_Myname)>12 then
Response.Write "<script>alert('昵称须在2-12个字符以内!');parent.SendErr()</script>"
Call CloseConn()
Response.End
end if
ASP网站怎么实现每日凌晨自动删除数据 展开
if Main_LoginPass<>"" then
del=request("del")
sh=request("sh")
id=request("id")
re=request("re")
if del<>"" then
conn.Execute("delete from book where id="&del&"")
end if
if sh<>"" and id<>"" then
id=int(id)
sh=int(sh)
conn.Execute("update book set JXK_Types="&sh&" where id="&id&"")
elseif id<>"" then
conn.Execute("update book set JXK_CeoRe='"&re&"' where id="&id&"")
end if
end if
'删除修改操作结束
set rs=server.createobject("adodb.recordset")
action=request("action")
if action="save" then
JXK_Myname=trim(request.form("JXK_Myname"))
JXK_Cat=trim(request.form("JXK_Cat"))
JXK_Content=trim(request.form("JXK_Content"))
if len(JXK_Myname)<2 or len(JXK_Myname)>12 then
Response.Write "<script>alert('昵称须在2-12个字符以内!');parent.SendErr()</script>"
Call CloseConn()
Response.End
end if
ASP网站怎么实现每日凌晨自动删除数据 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询