hfok.asp

1.拼客信息发布 2.在线报名 3.群组讨论 4.程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站 5.其他的直接看演示吧

<%
'########################################
'
'XinYou-pK(CMS)(v1.0)拼客内容管理系统
'
'使用过程中,如有问题,请联系QQ:16129825   E-mail:[e-mail]
'
'演示地址：http://www.XinYou88.net
'
'程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站
'
'如有BUG,请通知一声,谢谢!!!
'
'########################################
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/config.asp"-->
<% dim pxid,user
pxid=request("id")
if request("yk")="1" then
hfuser="游客"
else
user1=request("hfuser")
user=request.cookies("xinyou88")("user")
 if user1<>user then
 Response.Write "<script language='javascript'>alert('非法用户,不能发表回复');history.back();</script>" 
 response.End
 else
 hfuser=user
 end if
end if
'######################增加回复次数
set pxrs=server.CreateObject("adodb.recordset")
pxsql="select * from pkxx where id="&pxid
pxrs.open pxsql,conn,1,3
hfcs=pxrs("hfcs")
hfcs=hfcs+1
pxrs("hfcs")=hfcs
pxrs.update
'############################
set hfrs=server.CreateObject("adodb.recordset")
hfsql="select * from hfxx"
hfrs.open hfsql,conn,1,3
hfrs.addnew
hfrs("pxid")=pxid
hfrs("hfuser")=hfuser
hfrs("hfneirong")=trim(request("hfneirong"))
hfrs("hfsj")=now()
hfrs("hfip")=request.serverVariables("remote_host")
hfrs.update
Response.Write "<script language='javascript'>alert('恭喜!回复成功!');</script>" 
%>
<meta http-equiv="refresh" content="1; url=px.asp?id=<%=hfrs("pxid")%>">
<%
response.End
pxrs.close
set pxrs=nothing
hfrs.close
set hfrs=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>