?? 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 + -