📄 plpl.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%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"-->
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title='发表评论'>
<p>
<!--#include file="admin/i.asp"-->
<%
p=cint(request("p"))
pl=request("pl")
artid=cint(request("id"))
ip=Request.ServerVariables("REMOTE_ADDR")
if session("mfxjcompl")=1 then
response.write("你刚才已发表过评论！请在一分钟后请发！<br/>")
else
if pl="" then
response.write("评论内容不能为空！<br/>")
else
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from pingl"
rs.open rsstr,conn,1,3
rs.addnew
if pl<>"" then rs("pl")=pl
if ip<>"" then rs("ip")=ip
if artid<>"" then rs("artid")=artid
rs("pltime")=now()
rs.update
set rst=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where id="&artid
rst.open rsstr,conn,1,3
rst("pl")=rst("pl")+1
rst.update
response.write("评论发表成功！<br/>")
session.timeout=1
session("mfxjcompl")=1
rst.close
Set rst=nothing
rs.close
Set rs=nothing
conn.close
set conn=nothing
end if
end if
%>
<a href='read.asp?id=<%=artid%>&p=<%=p%>'>返回此文</a>
<a href='http://<%=url%>'><%=name%></a>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -