update.asp

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

	do while not rs.eof
		attribute=split(rs(0),"|||")
		nickname=getValue("as_user","nickname","username='"&attribute(5)&"'")
		newAttribute=rs(0)&"|||"&nickname
		uConn.execute("update as_channel set attribute='"&newAttribute&"' where channelID="&rs("channelID"))
		rs.movenext
	loop
end if

'nologo
dim logo,nlogo
set rs=uConn.execute("select logo,userID from as_user")
if not(rs.bof and rs.eof) then
	do while not rs.eof
		logo=split(rs(0),"|||")
		if logo(0)="images/logo.gif" then
			uConn.execute("update as_user set logo='images/nologo.gif|||"&cint(anysale.asUser(13))&"|||"&cint(anysale.asUser(14))&"' where userID="&rs("userID"))
		end if
		rs.movenext
	loop
end if
uConn.execute("update as_user set myStyle='style/default/style.css|||style/default/style.jpg'")

dim asSet
asSet=getValue("as_config","asSet","")
asSet=split(asSet,"|||")
uConn.execute("update as_config set asSet='skins/default/style.css|||"&asSet(1)&"|||"&asSet(2)&"'")

uConn.execute("update as_style set banner='style.jpg'")

i=0
set rs=conn.execute("select * from as_ad order by adID asc")
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
		set rss=uConn.execute("select * from as_ad where adID="&rs("adID"))
		if not(rss.bof and rss.eof) then
			i=i+1
			uConn.execute("update as_ad set adgroupsID="&rs("adgroupsID")&",userID="&rs("userID")&",addtime='"&rs("addtime")&"',starttime='"&rs("starttime")&"',endtime='"&rs("endtime")&"',title='"&rs("title")&"',price="&price&",[long]="&rs("long")&",url='"&rs("url")&"',link='"&rs("link")&"',readme='"&anysale.checkStr(rs("readme"))&"',views="&rs("views")&",clicks="&rs("clicks")&",ispay="&rs("ispay")&",islock="&rs("islock")&" where adID="&rss("adID"))
		else
			uConn.execute("insert into as_ad(adgroupsID,userID,addtime,starttime,endtime,title,price,[long],url,link,readme,views,clicks,ispay,islock)Values("&rs("adgroupsID")&","&rs("userID")&",'"&rs("addtime")&"','"&rs("starttime")&"','"&rs("endtime")&"','"&rs("title")&"',"&price&","&rs("long")&",'"&rs("url")&"','"&rs("link")&"','"&anysale.checkStr(rs("readme"))&"',"&rs("views")&","&rs("clicks")&","&rs("ispay")&","&rs("islock")&")")
		end if
	rs.movenext
	loop
end if
response.write b&"成功更新"&i&"条ad数据"&e
Response.Flush

i=0
set rs=conn.execute("select * from as_adgroups order by adgroupsID asc")
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
		set rss=uConn.execute("select * from as_adgroups where adgroupsID="&rs("adgroupsID"))
		if not(rss.bof and rss.eof) then
			i=i+1
			uConn.execute("update as_adgroups set addtime='"&rs("addtime")&"',orders="&rs("orders")&",title='"&rs("title")&"',readme='"&rs("readme")&"',adType="&rs("adType")&",width="&rs("width")&",height="&rs("height")&",istransparent="&rs("istransparent")&",target="&rs("target")&",[number]="&rs("number")&",price="&price&",isactive="&rs("isactive")&" where adgroupsID="&rss("adgroupsID"))
		else
			uConn.execute("insert into as_adgroups(addtime,orders,title,readme,adType,width,height,istransparent,target,[number],price,isactive)Values('"&rs("addtime")&"',"&rs("orders")&",'"&rs("title")&"','"&rs("readme")&"',"&rs("adType")&","&rs("width")&","&rs("height")&","&rs("istransparent")&","&rs("target")&","&rs("number")&","&price&","&rs("isactive")&")")
		end if
		rs.movenext
	loop
end if
response.write b&"成功更新"&i&"条adgroups数据"&e
Response.Flush

set rs=uConn.execute("select groupsID,price from as_groups")
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
		uConn.execute("update as_groups set price="&price&" where groupsID="&rs("groupsID"))
		rs.movenext
	loop
end if

set rs=uConn.execute("select priceID,price from as_price")
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
		uConn.execute("update as_price set price="&price&" where priceID="&rs("priceID"))
		rs.movenext
	loop
end if

rss.close
set rss=nothing
rs.close
set rs=nothing


ModColumn "as_ad","price","money Null"
ModColumn "as_adgroups","price","money Null"
ModColumn "as_business","price","money Null"
ModColumn "as_products","price","money Null"
ModColumn "as_groups","price","money Null"
ModColumn "as_price","price","money Null"

%>
   <li>完成升级数据库结构，调整数据。请进行下一步操作。</li>
  </ul>
 <!--list.end-->
 </div>
</div>

<div>
 <ul>
  <li>&nbsp;</li>
  <li>&nbsp;</li>
  <li class="txtCen title green"><input type="submit" name="submit" value="下一步：升级成功,返回首页" class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" /></li>
  <li>&nbsp;</li>
  <li>&nbsp;</li>
  <li>&nbsp;</li>
 </ul>
</div>
</form>
<%
closeData()
end sub

sub ok()
	dim objFSO
	set objFSO = server.createObject("scripting.fileSystemObject")
	if objFSO.fileExists(server.mapPath("update.asp")) then
		objFSO.deleteFile(server.mapPath("update.asp"))
	end if
	set objFSO=nothing
	response.redirect "index.asp"
end sub

Sub Conntting(db)
	'On Error Resume Next
	Set uConn = Server.CreateObject("ADODB.Connection")
	uConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	uConn.Open uConnStr
	If Err Then
		Err.Clear
		Set uConn = Nothing
		Response.Write "数据库连接出错，请检查连接字串，请确认您输入的数据库地址是否正确。"
		Response.End
	End If
End Sub

Sub closeData()
	uConn.Close
	Set uConn=Nothing
End Sub

'=====================压缩参数=========================
'删除字段通用函数
Sub DelColumn(TableName,ColumnName)
	On Error Resume Next
	uConn.Execute("Alter Table "&TableName&" Drop "&ColumnName&"")
	If Err Then
		Response.Write b & "删除 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段删除，原因" & Err.Description & "<BR>" & e
		Err.Clear
		Response.Flush
	Else
		Response.Write b & "删除 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>" & e
		Response.Flush
	End If
End Sub

'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
	On Error Resume Next
	uConn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
	If Err Then
		Response.Write b & "新建 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段建立，属性为 <B>"&ColumnType&"</B>，原因" & Err.Description & "<BR>" & e
		Err.Clear
		Response.Flush
	Else
		Response.Write b & "新建 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>" & e
		Response.Flush
	End If
End Sub

'更改字段通用函数
Sub ModColumn(TableName,ColumnName,ColumnType)
	On Error Resume Next
	uConn.Execute("Alter Table "&TableName&" Alter Column "&ColumnName&" "&ColumnType&"")
	If Err Then
		Response.Write b & "更改 "&TableName&" 表中字段属性<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段更改为 <B>"&ColumnType&"</B> 属性，原因" & Err.Description & "<BR>" & e
		Err.Clear
		Response.Flush
	Else
		Response.Write b & "更改 "&TableName&" 表中字段属性 "&ColumnName&" 成功 <BR>" & e
		Response.Flush
	End If
End Sub

'删除表通用函数
Sub DelTable(TableName)
	On Error Resume Next
	uConn.Execute("Drop Table "&TableName&"")
	If Err Then
		Response.Write b & "删除 "&TableName&" 表<font color=blue>错误</font>，请手动将数据库中 <B>"&TableName&"</B> 表删除，原因" & Err.Description & "<BR>" & e
		Err.Clear
		Response.Flush
	Else
		Response.Write b & "删除 "&TableName&" 表成功 <BR>" & e
		Response.Flush
	End If
End Sub

	public function getValue(table,content,ID)
		dim rs
		if ID<>"" then
			set rs=uConn.execute("select "&content&" from "&table&" where "&ID)
		else
			set rs=uConn.execute("select "&content&" from "&table)
		end if
		if not (rs.eof and rs.bof) then
			getValue=rs(0)
		end if
		rs.close : set rs=nothing
	end function

anysale.minFoot
closeConn
%>