📄 topic.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.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<%id=request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM sheet where id="&id&""
rs.open sql,conn,1,1
%>
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='评论内容' >
<p>
<%=untow(rs("name"))%>的评论:
<br/><%=untow(rs("note"))%>
<br/>时间:<%=rs("time")%>
<% if session("flag")<>"" then %>
<% if session("flag")=1 then %><br/>手机:<%=rs("shouji")%><%end if%>
<% if session("flag")<3 then %>
<br/><a href='del.asp?id=<%=rs("id")%>&zuti=<%=rs("zuti")%>'>
删除</a> <%end if%><%else%><%end if%>
<br/>------------
<br/><a href='ping.asp?articleid=<%=rs("zuti")%>'>返上一级</a>
<br/><a href='../index.asp'>返回首页</a>
</p>
</card>
</wml> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -