shenghe.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 55 行

<%@ codepage ="936" %>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
 dim ishavegant
 ishavegant=false
 in_str=split(session("masterflag"),",")
 for each ins in in_str
 if trim(ins)="31" then 
 ishavegant=true
 end if
 next 
 if ishavegant=false then
 response.redirect "../err.asp"
 response.end
 end if
 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
 action=Replace_Text(request("action"))
 

 info_id=Replace_Text(request("info_id"))
 
set rs=server.createobject("adodb.recordset")
sql="update Yixiang_Info set flag=1 where info_id="&Info_ID
rs.open sql,conn,1,3

set RsHTml=server.createobject("adodb.recordset")
	SqlHTml="Select * From Yixiang_Info Where info_id="&Info_ID
	RsHtml.Open SqlHtml,Conn,1,3
		
	IF NOt RsHtml.Eof then 
		id1=RsHtml("info_id")
		id2=RsHtml("info_id")
		if RsHtml("type")="卖" then 
				HtmlPath="tradeinfo"
			else
				HtmlPath="seller"
			end if
		%>
		<iframe src="../../manage/makehtml/<%=HtmlPath%>/makedetail.asp?all=update&id1=<%=Info_ID%>&id2=<%=Info_ID%>&schtml=开始生成>>" frameborder="0" scrolling="yes" height="0" widht="0"></iframe>
		<%
	End if	
		RsHtml.Close
	Set RsHtml=nothing
conn.close
Response.write"<script>location.href='index.asp?action="&action&"&keywords="&keywords&"&type="&request("type")&"'</script>"
%>