setup_obinfo_ok.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 31 行

<!--#include file="../../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" -->
<%
	news_str=request.form("released_news_str") '要发布的新闻的数组列表
	news_str=left(news_str,len(news_str)-1)

	news_list=split(news_str,",")
	a=ubound(news_list)

	
	'修改信息的发布顺序
	for i=0 to a
		sqlstr="UPDATE news_type SET orderid=" & i & " WHERE ID=" & news_list(i)
		conn.execute sqlstr
	next
	
%>

<script language="javascript">
		parent.document.location.href="../news_type.asp?ver=<%=m_ver%>";
</script>