📄 update_20to23.asp

📁 大型豪华网络游戏交易平台!!有喜欢的就的就快哦~~~~~~
💻 ASP
字号:
<!--#include file="orderconn.asp"-->
<%
'#############################################################
'#              贺喜支付平台支付接口定单管理系统
'#                            v2.3
'#                   http://www.168reg.cn
'#
'#  版权所有: 株洲市和谐网络科技发展有限公司
'#
'#  主页地址: http://www.168reg.cn
'#  技术支持: support@168reg.cn
'#  技 术 QQ: 359465724
'#  技术QQ群：8246422，7048987
'#
'#############################################################
'# ·郑重声明:
'# ·此定单系统仅提供简易版定单管理功能，其他功能，请自行开发。
'# ·由于用户原因，可能导致定单数据丢失，请经常登录管理区查看定单。
'# ·此程序不得随意公开发布、销售或进行其他非法转让。
'# ·如对此程序有任何疑问，请在管理区留言。
'#############################################################
%>
<html>
<body style="font-size:14px">
贺喜支付平台多途径支付接口 v2.3 数据库结构更新
<BR/>
<BR/>
最后更新时间：2007年8月28日
<BR/>
<BR/>
<input type="button" value="开始更新>>" onClick="window.location.href='update_20to23.asp?step=1'">
<BR/>
<BR/>
============================================
<BR/>
<BR/>
<%
Dim iStep,rs
iStep=Request("step")
'On error Resume Next
Dim strSql,strErrMsg,strNow

If iStep=1 Then
	Call Execute("ALTER TABLE myorder DROP CONSTRAINT orderid")
	If strErrMsg<>"" Then
		Echo  "<font color=red>myorder表orderid字段 修改失败</font>:<BR/>" & strErrMsg  &"<BR/><BR/>" 
	Else
		Echo  "<font color=green>myorder表orderid字段 修改成功</font><BR/><BR/>" 
	End If
	strErrMsg=""
	Call Execute("Alter Table myorder Add userpaid bit default 0 NULL")
	If strErrMsg<>"" Then
		Echo  "<font color=red>myorder表userpaid字段 增加失败</font>:<BR/>" & strErrMsg  &"<BR/><BR/>" 
	Else
		Echo  "<font color=green>myorder表userpaid字段 增加成功</font><BR/><BR/>" 
	End If
	strErrMsg=""
	Call Execute("Alter Table myorder Add paydate DATETIME NULL")
	If strErrMsg<>"" Then
		Echo  "<font color=red>myorder表paydate字段 增加失败</font>:<BR/>" & strErrMsg  &"<BR/><BR/>" 
	Else
		Echo  "<font color=green>myorder表paydate字段 增加成功</font><BR/><BR/>" 
	End If
	strErrMsg=""
	Response.Write "执行完毕!<br/>请删除本文件!"
	Response.End
End If


%>

============================================
<BR/>
<BR/>
贺喜支付平台多途径支付接口 2.3 (http://www.168reg.cn)
<BR/>
<BR/>
</body>
</html>
<%
'---------------------------------------------

Sub  Execute(sSql)
On Error Resume Next
	Call conn.Execute(sSql)
	If Err.Number<>0 Then
		strErrMsg = strErrMsg & "<font color=red>" & Err.Description & "</font><BR>"
	End If
	Err.Clear
	On Error Goto 0
End Sub

Sub Echo(sStr)
	Response.Write sStr
	Response.Flush
End Sub

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -