directfile.asp

来自「asp的新闻网站」· ASP 代码 · 共 22 行

<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/checkServer.asp" -->
<!--#include file="../include/killStr.asp" -->
<%
menuId=trim(request("menuId"))
if menuId="" then
	response.write "错误入口,<a href=javascript:history.back()>按此返回</a>"
	response.end
end if
sql="select * from news2_menu where menuId='"&menuId&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,3
if not rs.eof then
	session("news2LoginSuccess")=session("news2LoginSuccess")
	response.redirect rs("url")
end if
response.write "错误入口,<a href=javascript:history.back()>按此返回</a>"
response.end
%>