📄 xx_view.asp

📁 WAP 书站程序 WAP 书站程序 WAP 书站程序

💻 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>
<a href="mysb.asp?sb=<%=sb%>">书包</a>|<a href="myss.asp?sb=<%=sb%>">书签</a>|消息|<a href="mysz.asp?sb=<%=sb%>">定制</a><br/>
<%
dim id
id=request("id")
bbbid=request("id")
set objgbrr=Server.CreateObject("ADODB.Recordset")
  ssql="select * from siti_Duanxin where cstr(id)="&id&" and cstr(sitis)="&myid
  objgbrr.open ssql,conn,1,1
if objgbrr.eof then%>
没有本信息<br/>
<%else
js=objgbrr("content")
ffid=objgbrr("nickname")
fftm=objgbrr("dateandtime")
zuoze=objgbrr("custom")
objgbrr.close
set objgbrr=nothing
sql="update siti_Duanxin set yd=1 where cstr(id)="&id
  conn.Execute(sql)
%>
内容：<%=ubb2(js)%><br/>
作者：
<a href="gr_zl.asp?id=<%=ffid%>&amp;sb=<%=sb%>"><%=zuoze%></a>(ID:<%=ffid%>)
<br/>
时间：<%=fftm%><br/>
<%if ffid<>"" then%>
快速回复：<br/>
<input name="text" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
<anchor>确定发送
    <go href="addcl.asp?sb=<%=sb%>" 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%>
<a href="xx_scbt.asp?id=<%=id%>&amp;sb=<%=sb%>">删除当前信息</a><br/>
<%end if%>
<a href="myxx.asp?sb=<%=sb%>">回到消息中心</a><br/>
<a href="index.asp?sb=<%=sb%>">返回泡书首页</a><br/>
</p>
</card>
</wml>
<%endConnection()%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -