不错的ASP整站源代码。在IIS环境下运行都没有问题

				
								 m_ver = Trim(request("ver"))
				 if m_ver="cn" then 
				  tmpstr_t="[中文版]"
				 elseif  m_ver="en"  then 
				 tmpstr_t="[英文版]"
				 else
				 response.write "错误访问页面，请重试" 
				 response.end    
				 End If%> 
				
				  
				 
				
								news_str=request.form("released_news_str") 
				strSort = Request.form("sorttype")
				if strSort = "1" then
					'推荐
					strField = "isComm"
					strField2 = "InfoClsComm"
					strTitle = "推荐产品顺序排列"
				elseif strSort = "2" then
					'促销
					strField = "isOnSale"
					strField2 = "InfoClsSale"
					strTitle = "促销产品顺序排列"
				else
					Response.Write "参数传输不正确!"
					Response.End 
				end if
				
				news_str=left(news_str,len(news_str)-1)
				
				news_list=split(news_str,",")
				a=ubound(news_list)
				
				for i=0 to a
					is_id=news_list(i)
					
					sqlstr="UPDATE ys_product2_catalog " & " SET " & orderid & "=" & i & " WHERE ProductID=" & is_id
				
					conn.execute sqlstr
				
				next
				if err.number  0 then
					call closedb
					call showMsg("数据库错误，排序未成功！")
				else
					call closedb
					call showMsg("排序完成!")
				end if
				
				%>
				
					
						alert('');
						window.close();