update.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"

call anysale.minHead("AnySale升级程序","","")
server.ScriptTimeout=9999999

dim uConn,uConnStr,uSql
dim b,e
b="<li class=""left"" style=""width:250px;"">"
e="</li>"

select case request("action")
	case "step2"
		'导入主体数据
		call step2()
	case "ok"
		'删除升级文件，返回首页
		call ok()
	case else
		'选择数据库
		call main()
end select

sub main()
%>
<div>
 <ul>
  <li>&nbsp;</li>
  <li>&nbsp;</li>
  <li class="txtCen title green">第一步：选择数据库</li>
  <li>&nbsp;</li>
 </ul>
</div>

<div class="minB">
 <div class="list line30">
 <form name="step1" id="step1" method="post" action="?action=step2">
  <ul><li>&nbsp;</li></ul>
  <ul>
   <li class="name txtRig f14"><span class="red">*</span> 旧数据库地址：</li>
   <li class="value"><input type="text" name="database" id="database" class="inpWidth" onblur="check('数据库地址',this.value,'databaseNote',0,0,1)" /></li>
   <li><span class="note" id="databaseNote">相对路径，如data目录的data/anysale.mdb或者根目录anysale.mdb</span></li>
  </ul>
  <ul>
   <li class="left name">&nbsp;</li>
   <li class="value">
	<input type="submit" name="submit" value="下一步：升级数据库" class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
   </li>
  </ul>
  <ul><li>&nbsp;</li></ul>
 </form>
  <ul class="borderB">
   <li class="color f14"><strong>升级说明</strong></li>
  </ul>
  <ul>
   <li><strong>操作说明，请仔细阅读操作说明后进行操作：</strong></li>
  </ul>
  <ul>
   <li>1、本升级程序为从AnySale v2.0 beta 升级到AnySale v2.0正式版使用。</li>
  </ul>
  <ul>
   <li>2、强烈建议您在本地计算机系统完成升级操作并做好<strong class="red">备份</strong>工作，如不能在本地进行升级操作也请升级前<strong class="red">备份</strong>好您的所有文件和数据；</li>
  </ul>
  <ul>
   <li class="left">3、<strong>本地升级</strong>：</li>
   <li class="left">
    A.系统要求：使用W2k(Pro&amp;Server)+IIS5.0或者Win2003+IIS6，请不要在Win9x下进行升级操作；<br />
	B.在WEB目录中新建一目录，将v2.0网站数据库下载回本地放入新目录，将v2.0的upfile目录下上传文件下载回本地的upfile/目录；<br />
    C.将程序包update2目录下的update.asp复制到网站目录，在浏览器中执行http://website/update.asp文件，然后按照步骤和说明进行操作；<br />
    D.如果出现<strong class="red">错误</strong>信息提示，请仔细阅读，一般都包含了解决办法，这时或许需要您手动调整部分信息，如果是出现异常的没有解决的问题，请到<a href="http://bbs.anysale.cn" class="links" target="_blank">AnySale论坛</a>发言讨论；<br />
    E.完成升级后，为了安全，请确认update.asp文件是否删除成功；<br>
	F.将升级后的数据库复制到正式版data目录下。设置好conn.asp的数据库连接地址，进入后台调整好广告，及检查其它设置是否正常。
	</li>
  </ul>
  <ul>
   <li class="left">4、<strong>网络升级</strong>：</li>
   <li class="left">
    A.请做好数据库和网站文件备份；<br />
    B.将新版文件传到网站目录，新建一目录，将v2.0 beta数据库上传到此目录，将v2.0 beta上传目录下的文件夹上传到“upfile/”目录下；<br>
	C.将程序包update2目录下的update.asp上传到网站目录，在浏览器中执行http://website/update.asp文件，然后按照步骤和说明进行操作；<br />
    D.如果出现<strong class="red">错误</strong>信息提示，请仔细阅读，一般都包含了解决办法，这时或许需要您手动调整部分信息，如果是出现异常的没有解决的问题，请到<a href="http://bbs.anysale.cn" class="links" target="_blank">AnySale论坛</a>发言讨论；<br />
    E.完成升级后，为了安全，请确认update.asp文件是否成功删除；<br>
	F.将升级后的数据库复制到正式版data目录下。设置好conn.asp的数据库连接地址，进入后台调整好广告，及检查其它设置是否正常。
   </li>
  </ul>
  <ul>
   <li>5、欢迎访问 <a class="links" href="http://www.anyfor.cn" target="_blank">为为</a> <a class="links" href="http://www.anysale.cn">AnySale</a> <a class="links" href="http://bbs.anysale.cn">论坛</a>！</li>
  </ul>
  <ul><li>&nbsp;</li></ul>
 <!--list.end-->
 </div>
</div>
<%
end sub

sub step2()
	if request.form("database")="" then
		response.write"<div class=""txtCen title"" style=""padding:150px 0 226px 0;"">请输入正确的数据库名称！<br /><br /><br /><br /><button onclick=""javascript:history.go(-1);"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'""> 返 回 </button></div>"
		exit sub
	end if
	Conntting(Request("database"))
%>
<div>
 <ul>
  <li>&nbsp;</li>
  <li>&nbsp;</li>
  <li class="txtCen title green">第二步：升级数据库结构，调整数据</li>
  <li>&nbsp;</li>
  <li>&nbsp;</li>
 </ul>
</div>

<form name="step2" id="step2" method="post" action="?action=ok">
 <input type="hidden" value="<%=request("database")%>" name="database">
<div class="minB">
 <div class="list line30">
  <ul class="borderB">
   <li><strong class="color f14">操作说明：</strong>正在处理数据，未出现下一步之前，请勿刷新或关闭浏览器！</li>
  </ul>
  <ul><li>&nbsp;</li></ul>
  <ul>
<%
Response.Flush

ModColumn "as_ad","link","text Null"
ModColumn "as_ad","readme","text Null"

AddColumn "as_business","preview","varchar(250) Null"
AddColumn "as_business","tags","varchar(250) Null"
DelColumn "as_business","attribute"

AddColumn "as_products","preview","varchar(250) Null"
AddColumn "as_products","tags","varchar(250) Null"
DelColumn "as_products","attribute"

AddColumn "as_job","tags","varchar(250) Null"
AddColumn "as_exhibit","tags","varchar(250) Null"
AddColumn "as_news","tags","varchar(250) Null"
AddColumn "as_mynews","tags","varchar(250) Null"
AddColumn "as_article","tags","varchar(250) Null"
AddColumn "as_bbslist","nickname","varchar(50) Null"
AddColumn "as_bbslist","tags","varchar(250) Null"
AddColumn "as_bbslist","intro","varchar(250) Null"

ModColumn "as_user","question","varchar(250) Null"
ModColumn "as_user","answer","varchar(250) Null"
ModColumn "as_user","title","varchar(100) Null"
ModColumn "as_user","answer","varchar(128) Null"
DelColumn "as_user","trust"

ModColumn "as_skins","title","varchar(50) Null"
ModColumn "as_skins","layout","varchar(50) Null"

ModColumn "as_style","title","varchar(50) Null"
ModColumn "as_style","layout","varchar(50) Null"
AddColumn "as_style","banner","varchar(250) Null"

DelColumn "as_sort ","attribute"

uConn.Execute("update as_upfile set [group]=14")

'bbslist
dim intro,rs,nickname,lastpost,preview,okview,objFSO,price
dim i,rss
set objFSO = server.createObject("scripting.fileSystemObject")
set rs=uConn.execute("select bbsID,userID,lastpost from as_bbslist")
if not(rs.bof and rs.eof) then
	do while not rs.eof
		intro=left(anysale.clearHTML(getValue("as_bbs","detail","rootID="&rs(0))),100)
		nickname=getValue("as_user","nickname","userID="&rs("userID"))
		lastpost=rs("lastpost")&"|"&nickname
		uConn.execute("update as_bbslist set intro='"&intro&"',nickname='"&nickname&"',lastpost='"&lastpost&"' where bbsID="&rs("bbsID"))
		rs.movenext
	loop
end if

'preview
set rs=uConn.execute("select businessID,image,price from as_business")
if not(rs.bof and rs.eof) then
	do while not rs.eof
		preview=replace(rs("image"),"upfile/","upfile/preview/")
		price=replace(rs("price"),",","")
		if not isnumeric(price) then price=0 end if
		if preview<>"" then
			if objFSO.fileExists(server.mapPath(preview)) then
				okview=preview		
			else
				okview=rs("image")
			end if
		end if
		uConn.execute("update as_business set preview='"&okview&"',price="&price&" where businessID="&rs("businessID"))
		rs.movenext
	loop
end if

set rs=uConn.execute("select productsID,image,price from as_products")
if not(rs.bof and rs.eof) then
	do while not rs.eof
		price=replace(rs("price"),",","")
		if not isnumeric(price) then price=0 end if
		preview=replace(rs("image"),"upfile/","upfile/preview/")
		if preview<>"" then
			if objFSO.fileExists(server.mapPath(preview)) then
				okview=preview		
			else
				okview=rs("image")
			end if
		end if
		uConn.execute("update as_products set preview='"&okview&"',price="&price&" where productsID="&rs("productsID"))
		rs.movenext
	loop
end if


'bbschannel +|||nickname
dim attribute,newAttribute
set rs=uConn.execute("select attribute,channelID from as_channel where groups=8")
if not(rs.bof and rs.eof) then