1_update.asp
来自「中国网站网贴吧程序源码(ASP+ACCESS) 实现功能: 多级分类查找,可按多」· ASP 代码 · 共 30 行
ASP
30 行
<!--#include file="boardconn.asp"-->
<HTML>
<HEAD>
<TITLE>loading...</TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<META http-equiv="refresh" content="5;URL=2_update.asp">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<%
dim strSQL
strSQL = "Alter Table QiQiBoy_System_Disp Add Column SystemUp Int NULL,SystemAd int NULL,SystemIntegral int NULL,SystemMaster text NULL,SystemCount memo NULL,SystemMail text NULL,SystemCopy int NULL,SystemSmtp int NULL,SystemMailAddress text NULL,SystemSmtpAddress text NULL,SystemMailName text NULL,SystemMailPass text NULL,SystemCopyTxt text NULL"
conn.Execute strSQL
ver="v3.1 BEAT"
master="admin"
mail="networkservice@163.com"
mailaddress="onlinebox@citiz.net"
smtpaddress="smtp.citiz.net"
mailname="onlinebox"
mailpass="onlinebox"
copytxt="Copyright i263.Net"
conn.Execute("update QiQiBoy_System_Disp set SystemVer='"&ver&"'")
conn.Execute("Update QiQiBoy_System_Disp set SystemNew=0,SystemNot=10,SystemVip=0,SystemUbb=0,SystemUp=0,SystemAd=0,SystemIntegral=10,SystemCopy=0,SystemSmtp=0")
conn.Execute("Update QiQiBoy_System_Disp set SystemMaster='"&master&"',SystemMail='"&mail&"',SystemMailAddress='"&mailaddress&"',SystemSmtpAddress='"&smtpaddress&"',SystemMailName='"&mailname&"',SystemMailPass='"&mailpass&"',SystemCopyTxt='"©txt&"'")
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>系统正在执行升级数据库QiQiBoy_System_Disp表结构,请等待...</u></font></center>"
response.write "</td></tr></table></center>"
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?