nextnum_ok.asp

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

<!--#include file="../manage_user/checkuser.asp" -->
<%
 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%> 
<!--#include file="../../include/db_conn.asp" -->
<!--#include file="../../include/pub_func.asp" -->  
<!--#include file="include/const.asp" --> 

<%
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

%>
<%sub showMsg(msg)%>
	<script language="javascript">
		alert('<%=msg%>');
		window.close();
	</script>
<%end sub%>