清空数据库中某个字段的代码

如果你想批量改你数据库重某个字段里的内容，或者说一键清空某个字段里的内容，那么可以试试这个代码。
功能很好很强大，自己可以多想想思路都可以用来做什么，对于自助链网站，可以一键清空所有站的来去路统计。也可以一键把所有站统计数据改成100。其他功能随你的需求也用了。
代码说明：
正数第三行里的server.mappath("/DB/#data.mdb")，把/DB/#data.mdb修改成你的数据库地址。
倒数第5、6行的代码：web_comein=0,web_goout=0,web_yesterdaycomein=0,web_yesterdaygoout=0,web_todaycomein=0,web_todaygoout=0,
web_5comein=0" ，等号前面是字段名，=等号后面是修改之后的数据，现在是0，也就是说运行代码之后上面的那些字段里的内容全部改为0了，这个是我用来清空来去路统计的时候用到的，你想怎么改到时候自己在改一下就OK。
倒数第4行的代码：
Call GoStrUrl("来路已经清空！","welcome.asp") ，“来路已经清空！”是运行代码之后的提示语，“welcome.asp”是运行代码之后的返回地址，请自行修改。
最后重要一点：修改好内容之后保存为XX.ASP传到空间，然后打开这个文件，注意的是要在文件名后面加上?act=clear.

<%'//////////////////////////////////// Code Start /////////////////////////////////////// %>

<%
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/DB/#data.mdb")
on Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Conn.Errors.count>0 then
  For i=0 to Conn.Errors.count-1
   tempErr=replace(replace(replace(Conn.Errors(i).Description,vbcrlf,""),vbcr,""),vblf,"")
   Response.Write "<script language='vbscript'>"  + vbcrlf
   Response.write "MsgBox ""发生数据库连接错误，请于管理员联系。错误提示如下：""&vbcrlf&vbcrlf&"""&tempErr&""",vbOKonly,""错误提示信息"""  + vbcrlf
   Response.Write "</script>"
   Response.Write "数据库连接出错，请联系管理员。"
  Next
  Response.End
End if

Sub CloseConn()
    Conn.close
    set Conn=nothing
End Sub

Public Function G(Str)
G = Replace(Replace(Trim(Request(Str)), "'", ""), """", "")
End Function

Sub GoStrUrl(str,url)
    CALL CloseConn()
    Response.Write "<script language=javascript>alert('" & str & "');location='"&url&"';</script>"
    Response.End
End Sub

Sub GoStrBc(str)
    CALL CloseConn()
    Response.Write "<script language=javascript>alert('" & str & "\n\n系统将自动返回前一页面...');history.back();</script>"
    Response.End
End Sub

Sub GoBc()
    CALL CloseConn()
    Response.Write "<script language=javascript>history.back();</script>"
    Response.End
End Sub

Sub GoUrl(url)
    CALL CloseConn()
    Response.Write "<script language=javascript>location='"&url&"';</script>"
    Response.End
End Sub

if G("act")="clear" then
conn.execute("update detail set web_comein=0,web_goout=0,web_yesterdaycomein=0,web_yesterdaygoout=0,web_todaycomein=0,web_todaygoout=0,web_5comein=0")
Call GoStrUrl("来路已经清空！","welcome.asp")
end if
%>
<%'//////////////////////////////////// Code End /////////////////////////////////////// %>

[本日志由 刚子 于 2008-05-24 07:30 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: