📄 kspl.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"-->
<%
id=usb(request("id"))
ltbt=usb(request("dgly"))
%>
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="快速评论" ontimer="sp.asp?sb=<%=sb%>&page=1&id=<%=id%>">
<timer value="10"/>
<p>
<%
'----识别错误并跳转-----
if ltbt="" then response.redirect "sp.asp?cw=1&sb="&sb&"&id="&id&"&dj="&dj&""
if myid="" then response.redirect "sp.asp?cw=4&sb="&sb&"&id="&id&"&dj="&dj&""
'---开始增加----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from Comment order by CommentID desc"
rs.open rspl,conn,1,2
if rs("User_ID")=myid and rs("Content")=ltbt then response.redirect "sp.asp?cw=7&sb="&sb&"&id="&id&"&dj="&dj&""
rs.addnew
if ltbt<>"" then rs("Content")=ltbt
rs("User_ID")=myid
if id<>"" then rs("type_ID")=id
rs("UserName")=myni
rs.update
'---关闭数据----
rs.close
set rs=nothing
%>
正在返回。。。
</p>
</card>
</wml>
<%endConnection()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -