📄 xx_view.asp

📁 wap系统程序源码用户名密码:admin
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%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 file="conn.inc"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="查看消息">
<p>
<!--#include file="66hcsb.asp"-->
<%
dim id
id=request("id")
if id="" then id="0"
bbbid=request("id")
if bbbid="" then bbbid="0"
set objgbrr=Server.CreateObject("ADODB.Recordset")
  ssql="select id,fnr,fid,sid,tou,ftm from tbxx where cstr(id)="&id&" and cstr(sid)="&myid
  objgbrr.open ssql,conn,1,1
if objgbrr.eof then%>
没有本信息<br/>
<%else
js=objgbrr("fnr")
ffid=objgbrr("fid")
fftm=objgbrr("ftm")
tou=objgbrr("tou")
objgbrr.close
set objgbrr=nothing
set oprs=Server.CreateObject("ADODB.Recordset")
  sqll="select id,nini from 66hc_gr where cstr(id)="&ffid
  oprs.open sqll,conn,1,1
if oprs.eof then
zuoze="1"
Else
zuoze=oprs("nini")
oprs.close
set oprs=nothing
end if
sql="update tbxx set fzt=1 where cstr(id)="&id
  conn.Execute(sql)
%>
内容：<%if tou<>"1" then%><img src="<%=tou%>" alt="加载表情"/><%end if%><%=ubb2(js)%><br/>
作者：
<%if zuoze<>"1" then%>
<a href="gr_zl.asp?id=<%=ffid%>&amp;glsb=<%=glsb%>"><%=ubb(zuoze)%></a>(ID:<%=ffid%>)
<br/>
时间：<%=fftm%><br/>
快速回复：<br/>
<input name="text" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
<anchor>确定发送
    <go href="addcl.asp?glsb=<%=glsb%>" method="post" accept-charset="utf-8">
        <postfield name="txt" value="$(text)"/>
        <postfield name="lid" value="<%=ubb(ffid)%>"/>
        <postfield name="myid" value="<%=ubb(myid)%>"/>
    </go>
</anchor><br/>
<%end if%>
<%if zuoze="1" then%>
系统消息<br/>
<%end if%>
<a href="xx_scbt.asp?id=<%=id%>&amp;glsb=<%=glsb%>">删除当前信息</a><br/>
**最近消息**<br/>
<%set oprss=Server.CreateObject("ADODB.Recordset")
  sqlls="select top 6 * from tbxx where cstr(sid)="&myid&" and cstr(fid)="&ffid&" and cstr(id)<>"&bbbid&" order by ftm desc"
  oprss.open sqlls,conn,1,1
if oprss.eof then
mmxx="没有了"
else
For i=1 to 6%>
<%=i%><%=zuoze%>：<%=ubb(oprss("fnr"))%><%=ubb(oprss("ftm"))%><br/>
<%oprss.Movenext
if oprss.EOF then Exit for
Next
end if
oprss.close
set oprss=nothing%>
<%end if%>
<a href="xx_list.asp?glsb=<%=glsb%>">回到消息中心</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -