shenghe.asp

来自「全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 」· ASP 代码 · 共 39 行

<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"81")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->

<%
if Chkrequest(request("pass")) then
pass=request("pass")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Chkrequest(request("page")) then
page=request("page")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
'set rs=server.createobject("adodb.recordset")
sql="update expo set sh=1 where id="&id 
'rs.open sql,conn,1,1
'conn.close
conn.execute(sql)
conn.close
set conn=nothing
response.redirect "expo.asp?pass="&pass&"&page="&Page&""%>