shownews.asp

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

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
dim newsid
dim hits
if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if
hits=replace(trim(request("hits")),"'","''")

%>
<%
sql="select typeid,id from yixiang_expoinfo where id="&id&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write"<br><br><div align=center>此条信息已经删除或不存在</div>"
else
response.redirect(""&HOPE_InstallDir&"service/expo/info/"&rs("typeid")&"-"&rs("id")&".html")
end if
rs.close 
set rs=nothing
%>