?? 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")=1 Then
session("gg")=Request.QueryString("gg")
sql="insert into shop_gg(d1w)values(0)"
conn.execute sql
sql="insert into shop_gg(d1w)values(0)"
conn.execute sql
sql="insert into shop_gg(d1w)values(0)"
conn.execute sql
sql="insert into shop_gg(d1w)values(0)"
conn.execute sql
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=2 Then
session("xw")=Request.QueryString("xw")
conn.execute("alter table [shop_news] add newstop nvarchar(50)")
conn.execute("alter table [shop_news] add newstj nvarchar(50)")
conn.execute("alter table [shop_news] add iuser int default 0")
conn.execute("update [shop_news] set newstop=1")
conn.execute("update [shop_news] set newstj=1")
conn.execute("update [shop_news] set iuser=0")
conn.execute("alter table [shop_config] add news_inc nvarchar(250)")
inc="1,5,1,3,1,5,12,1,6,1,6,1,6,12,1,5,1,5,1,5,1,6,21,1,1,1,1,1,1,1,1,1"
conn.execute("update [shop_config] set news_inc='"&inc&"'")
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=3 Then
session("zt")=Request.QueryString("zt")
conn.execute("alter table [shop_zhuanti] add hot int default 0")
conn.execute("alter table [shop_zhuanti] add iname nvarchar(50)")
conn.execute("alter table [shop_zhuanti] add ipic int default 0")
conn.execute("alter table [shop_zhuanti] add itj int default 0")
conn.execute("alter table [shop_zhuanti] add itop int default 0")
conn.execute("alter table [shop_zhuanti] add iuser int default 0")
conn.execute("update [shop_zhuanti] set hot=0")
conn.execute("update [shop_zhuanti] set ipic=1")
conn.execute("update [shop_zhuanti] set itop=1")
conn.execute("update [shop_zhuanti] set itj=1")
conn.execute("update [shop_zhuanti] set iuser=0")
iname="admin"
conn.execute("update [shop_zhuanti] set iname='"&iname&"'")
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=4 Then
session("tp")=Request.QueryString("tp")
snsn1=1
snsn2=0
snsn3=80
snsn4=80
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_config ",conn,1,3
rs("shop_config2")=rs("shop_config2")&","&snsn1&","&snsn2&","&snsn3&","&snsn4
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")=5 Then
session("gq")=Request.QueryString("gq")
conn.execute("alter table [shop_infomsg] add itop int default 1")
conn.execute("update [shop_infomsg] set itop=1")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath("Supply/index.asp"))
fso.DeleteFile(Server.mappath("Supply/info_add.asp"))
fso.DeleteFile(Server.mappath("Supply/info_del.asp"))
fso.DeleteFile(Server.mappath("Supply/info_fl.asp"))
fso.DeleteFile(Server.mappath("Supply/info_gong.asp"))
fso.DeleteFile(Server.mappath("Supply/info_hot.asp"))
fso.DeleteFile(Server.mappath("Supply/info_left.asp"))
fso.DeleteFile(Server.mappath("Supply/info_my.asp"))
fso.DeleteFile(Server.mappath("Supply/info_mysave.asp"))
fso.DeleteFile(Server.mappath("Supply/info_qiu.asp"))
fso.DeleteFile(Server.mappath("Supply/info_save.asp"))
fso.DeleteFile(Server.mappath("Supply/infosearch.asp"))
fso.DeleteFile(Server.mappath("Supply/show.asp"))
fso.DeleteFile(Server.mappath("Supply/top.asp"))
Set fso = nothing
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=6 Then
session("rj")=Request.QueryString("rj")
sql = "CREATE TABLE shop_rj_class (id int identity primary key, classname nvarchar(50),class nvarchar(50),px int,adddate smalldatetime )"
conn.execute sql
conn.execute("alter table [shop_rj] add classid int default 0")
conn.execute("alter table [shop_rj] add itop int default 1")
conn.execute("update [shop_rj] set itop=1")
conn.execute("update [shop_rj] set classid=1")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath("Diary/index.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_add.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_del.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_hot.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_left.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_my.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_mysave.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_save.asp"))
fso.DeleteFile(Server.mappath("Diary/rj_show.asp"))
fso.DeleteFile(Server.mappath("Diary/rjpinglun.asp"))
fso.DeleteFile(Server.mappath("Diary/rjpl_del.asp"))
fso.DeleteFile(Server.mappath("Diary/rjsearch.asp"))
fso.DeleteFile(Server.mappath("Diary/top.asp"))
Set fso = nothing
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=7 Then
session("tj")=Request.QueryString("tj")
snsn1=1
snsn2=1
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_config ",conn,1,3
rs("shop_config3")=rs("shop_config3")&","&snsn1&","&snsn2
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")=8 Then
session("kf")=Request.QueryString("kf")
sql = "CREATE TABLE shop_kf (id int identity primary key, inc nvarchar(250),kf1 nvarchar(250),kfurl1 nvarchar(250),kf2 nvarchar(250),kfurl2 nvarchar(250),kf3 nvarchar(250),kfurl3 nvarchar(250),kf4 nvarchar(250),kfurl4 nvarchar(250),kf5 nvarchar(250),kfurl5 nvarchar(250),kf6 nvarchar(250),kfurl6 nvarchar(250),kf7 nvarchar(250),kfurl7 nvarchar(250) )"
conn.execute sql
sql="insert into shop_kf(inc)values(0)"
conn.execute sql
inc="1|#cccccc|80|#333333|#f1f1f1|25|center"
conn.execute("update [shop_kf] set inc='"&inc&"'")
kf1="客服支持"
conn.execute("update [shop_kf] set kf1='"&kf1&"'")
kf2="<img border=0 SRC=http://wpa.qq.com/pa?p=1:9912515:10 alt=點擊這里給我發消息>"
conn.execute("update [shop_kf] set kf2='"&kf2&"'")
kfurl2="http://wpa.qq.com/msgrd?V=1&Uin=9912515&Site=www.9911.com.cn&Menu=yes"
conn.execute("update [shop_kf] set kfurl2='"&kfurl2&"'")
kf3="<img border=0 SRC=http://wpa.qq.com/pa?p=1:477305:10 alt=點擊這里給我發消息>"
conn.execute("update [shop_kf] set kf3='"&kf3&"'")
kfurl3="http://wpa.qq.com/msgrd?V=1&Uin=477305&Site=www.9911.com.cn&Menu=yes"
conn.execute("update [shop_kf] set kfurl3='"&kfurl3&"'")
kf4="技術支持"
conn.execute("update [shop_kf] set kf4='"&kf4&"'")
kf5="<img border=0 SRC=http://wpa.qq.com/pa?p=1:9912515:10 alt=點擊這里給我發消息>"
conn.execute("update [shop_kf] set kf5='"&kf5&"'")
kfurl5="http://wpa.qq.com/msgrd?V=1&Uin=9912515&Site=www.9911.com.cn&Menu=yes"
conn.execute("update [shop_kf] set kfurl5='"&kfurl5&"'")
kf6="<img border=0 SRC=http://wpa.qq.com/pa?p=1:477305:10 alt=點擊這里給我發消息>"
conn.execute("update [shop_kf] set kf6='"&kf6&"'")
kfurl6="http://wpa.qq.com/msgrd?V=1&Uin=477305&Site=www.9911.com.cn&Menu=yes"
conn.execute("update [shop_kf] set kfurl6='"&kfurl6&"'")
kf7="動感論壇"
conn.execute("update [shop_kf] set kf7='"&kf7&"'")
kfurl7="http://club.snsn.net"
conn.execute("update [shop_kf] set kfurl7='"&kfurl7&"'")
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=9 Then
session("shop_snsn")=Request.QueryString("shop_snsn")
conn.execute("alter table [shop_snsn] add xclassid int default 1")
conn.execute("update [shop_snsn] set xclassid=1")
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=10 Then
session("shop_xclass")=Request.QueryString("shop_xclass")
sql = "CREATE TABLE shop_xclass (id int identity primary key, xclass nvarchar(50),xpx int,xxs int default 2,xpic nvarchar(50),xurl nvarchar(50),xh int default 10,xl int default 1,anclassid int,nclassid int )"
conn.execute sql
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=11 Then
session("shop_sh")=Request.QueryString("shop_sh")
conn.execute("alter table [shop_vipcount] add vipid int default 0")
sql= "DROP TABLE shop_songhuo"
conn.execute sql
sql = "CREATE TABLE shop_songhuo (songid int identity primary key, subject nvarchar(50),songidorder int default 0 )"
conn.execute sql
subject="預存款支付"
sql="insert into shop_songhuo(subject,songidorder)values('"&subject&"',1)"
conn.execute sql
sql= "DROP TABLE shop_sys"
conn.execute sql
sql = "CREATE TABLE shop_sys (songid int identity primary key, fsh nvarchar(50),fy int default 0,je int default 0,mje int default 0,px int default 0 )"
conn.execute sql
fsh="送貨上門"
sql="insert into shop_sys(fsh,fy,je,mje,px)values('"&fsh&"',0,0,0,1)"
conn.execute sql
response.Write "<script language='javascript'>alert('升級成功!');window.location.href='setup.asp';</script>"
response.End
end if
if Request.QueryString("menu")=999 Then
session("gg")=""
session("gq")=""
session("xw")=""
session("zt")=""
session("tp")=""
session("rj")=""
session("kf")=""
session("shop_snsn")=""
session("shop_xclass")=""
session("shop_sh")=""
%>
<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
%>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<center>
<TABLE width=600 border=0 align="center" cellPadding=3 cellSpacing=0 borderColor=a4b6d7 style="border-collapse: collapse">
<TR>
<TD height=25 valign="middle" background=images/skins/title.gif align=center>
<b>動感購物2005V-B到2005V-D升級程序</b></TD>
</TR>
</TABLE>
<p> </p>
<TABLE border=1 align="center" cellPadding=3 cellSpacing=0 borderColor=a4b6d7 ID="Table2" style="border-collapse: collapse">
<%if session("gg")<>1 then%><TR>
<TD height=12 width="100%" >
<div align="center">升級網站廣告功能
<input type="button" value="開始升級" id="gg" name="gg" onClick="JavaScript:location.href='?menu=1&gg=1'" class="go-wenbenkuang">
</div></TD>
</TR><%end if%>
<%if session("xw")<>1 then%><TR>
<TD height=6 ><div align="center">升級網站新聞功能
<input type="button" value="開始升級" id="xw" name="xw" onClick="JavaScript:location.href='?menu=2&xw=1'" class="go-wenbenkuang">
</div></TD>
</TR><%end if%>
<%if session("zt")<>1 then%><TR>
<TD height=3 ><div align="center">升級網站專題功能
<input type="button" value="開始升級" id="zt" name="zt" onClick="JavaScript:location.href='?menu=3&zt=1'" class="go-wenbenkuang">
</div></TD>
</TR><%end if%>
<%if session("tp")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級網站圖片功能
<input type="button" value="開始升級" id="tp" name="tp" onClick="JavaScript:location.href='?menu=4&tp=1'" class="go-wenbenkuang">
</div></TD>
</TR><%end if%>
<%if session("gq")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級網站供求功能
<input type="button" value="開始升級" id="gq" name="gq" onClick="JavaScript:location.href='?menu=5&gq=1'" class="go-wenbenkuang">
</div></TD>
</TR><%end if%>
<%if session("rj")<>1 then%>
<TR>
<TD height=0 ><div align="center">升級網站日記功能
<input type="button" value="開始升級" id="rj" name="rj" onClick="JavaScript:location.href='?menu=6&rj=1'" class="go-wenbenkuang">
</div></TD>
</TR><%end if%><%if session("tj")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級綜合統計功能
<input type="button" value="開始升級" id="tj" name="tj" onClick="JavaScript:location.href='?menu=7&tj=1'" class="go-wenbenkuang">
</div></TD>
</TR>
<%end if%>
<%if session("kf")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級在線客服功能
<input type="button" value="開始升級" id="kf" name="kf" onClick="JavaScript:location.href='?menu=8&kf=1'" class="go-wenbenkuang">
</div></TD>
</TR>
<%end if%>
<%if session("shop_snsn")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級商品數據功能
<input type="button" value="開始升級" id="shop_snsn" name="shop_snsn" onClick="JavaScript:location.href='?menu=9&shop_snsn=1'" class="go-wenbenkuang">
</div></TD>
</TR>
<%end if%>
<%if session("shop_xclass")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級三級分類功能
<input type="button" value="開始升級" id="shop_snsn" name="shop_snsn" onClick="JavaScript:location.href='?menu=10&shop_xclass=1'" class="go-wenbenkuang">
</div></TD>
</TR>
<%end if%>
<%if session("shop_sh")<>1 then%>
<TR>
<TD height=1 ><div align="center">升級送貨支付功能
<input type="button" value="開始升級" id="shop_snsn" name="shop_snsn" onClick="JavaScript:location.href='?menu=11&shop_sh=1'" class="go-wenbenkuang">
</div></TD>
</TR>
<%end if%>
<TR>
<TD height=2 ><div align="center"><a href="?menu=999" class="style1">全部升級后點擊此處刪除升級文件</a> </div></TD>
</TR>
</TABLE>
<p> </p>
<TABLE width=600 border=0 align="center" cellPadding=3 cellSpacing=0 borderColor=a4b6d7 style="border-collapse: collapse">
<TR>
<TD height=12 valign="middle" background=images/skins/title.gif align=center> <strong>1.先運行升級程序然后再覆蓋所有補丁</strong></TD>
</TR>
<TR>
<TD height=13 valign="middle" background=images/skins/title.gif align=center><strong>2.升級后再修改根目錄CONN.ASP文件</strong></TD>
</TR>
<TR>
<TD height=25 valign="middle" background=images/skins/title.gif align=center><strong>3.升級前應先備份好所有文件和數據庫</strong></TD>
</TR>
</TABLE>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -