msgview.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml">
<!--#INCLUDE VIRTUAL="/data/conn.asp"-->
<wml>
<%
Server.ScriptTimeout=999
dim id
id=request("id")
if IsEmpty(id) then
response.redirect "site_manage.asp"
end if	
set objgbrs=Server.CreateObject("ADODB.Recordset")
sql="select * from message Where msgid=" & id 
objgbrs.open sql,conn,1,1
%>
<card  title="<%=mywapname%>">
<p>

<%=objgbrs("msgtitle")%><br/>
－－－－－<br/>
<%=objgbrs("msgbody")%><br/>
－－－－－<br/>
<%=objgbrs("msgtime")%>
<br/>
<% if Session("union")=mywaphost then
Response.write "<a href='/wz/admin/msg_edit.asp?id=" & objgbrs("msgid") &  "&amp;desc=" & desctmp & "'>编辑</a>"
Response.write "&nbsp;&nbsp;<a href='/wz/admin/msg_del.asp?id=" & objgbrs("msgid") &  "&amp;desc=" & desctmp & "'>删除</a><br/>"
else
Response.write "" 
End if
%>
<anchor>[返回上页]<prev/></anchor>
<br/>
<a href="<%=mywaphost%>">[<%=mywapname%>]</a><br/>
<%=mywaphost%><br/><%=mywapcatchword%>
</p>
</card>
</wml>

<%
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>