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")="[e-mail]"
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>