?? setup.asp
字號:
<!-- #include file="conn.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/css.css" rel="stylesheet" type="text/css">
<% on error resume next
if Request.QueryString("menu")="shop_zhk" Then
conn.execute("alter table [shop_zhk] add px int default 0")
conn.execute("update [shop_zhk] set px=1")
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")="shop_pay" Then
conn.execute("alter table [shop_pay] add pay int default 0")
conn.execute("alter table [shop_pay] alter ID int")
conn.execute("alter table [shop_pay] alter url varchar(50)")
conn.execute("update [shop_pay] set pay=1")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_pay ",conn,1,3
rs.addnew
rs("pay")=0
rs("username")="ad2532@163.com"
rs.update
rs.close
set rs=nothing
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")="shop_config1" Then
snsn=1
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_config ",conn,1,3
rs("shop_config")=rs("shop_config")&","&snsn
rs.update
rs.close
set rs=nothing
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")="shop_config2" Then
snsn=80
snsn2=80
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_config ",conn,1,3
rs("shop_config2")=rs("shop_config2")&","&snsn&","&snsn2
rs.update
rs.close
set rs=nothing
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
'conn.execute("alter table [book] add vote_body varchar(50)")
'conn.execute("alter table [book] add vote_dx int")
%><!--script>alert('升級成功,系統將自動刪除setup.asp文件。如果你的空間不支持fso 請手工刪除!');history.back();</script><script>window.close();</script-->
<%
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(Server.mappath("setup.asp"))
'Set fso = nothing
'end if
%>
<center>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=600 border=0 style="border-collapse: collapse">
<TR>
<TD height=25 valign="middle" background=images/skins/title.gif align=center>
<b>動感購物2005V-B SP1升級程序</b></TD>
</TR>
</TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=600 border=1 style="border-collapse: collapse" ID="Table2">
<TR>
<TD height=12 width="100%" >
升級折扣排序功能
<input type="button" value="開始升級" id="Button2" name="Button2" onClick="JavaScript:location.href='?menu=shop_zhk'" class="go-wenbenkuang"></TD>
</TR>
<TR>
<TD height=6 >升級在線支付功能
<input type="button" value="開始升級" id="Button22" name="Button22" onClick="JavaScript:location.href='?menu=shop_pay'" class="go-wenbenkuang"></TD>
</TR>
<TR>
<TD height=3 >升級圖片文字排列功能
<input type="button" value="開始升級" id="Button222" name="Button222" onClick="JavaScript:location.href='?menu=shop_config1'" class="go-wenbenkuang"></TD>
</TR>
<TR>
<TD height=4 >升級商品小圖片寬與高功能
<input type="button" value="開始升級" id="Button2222" name="Button2222" onClick="JavaScript:location.href='?menu=shop_config2'" class="go-wenbenkuang"></TD>
</TR>
</TABLE>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -