bm.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")
user=request.cookies("xinyou88")("user")
if user="" then
Response.Write "<script language='javascript'>alert('对不起,只有注册用户才能报名!');</script>" 
response.write "<meta http-equiv=refresh content=""1;URL=reg.asp"">"
response.End
else
set bmrs=server.CreateObject("adodb.recordset")
bmsql="select * from bmxx where user='"&user&"' and pxid="&pxid
bmrs.open bmsql,conn,1,3
if bmrs.eof then
bmrs.addnew
bmrs("pxid")=pxid
bmrs("user")=user
bmrs("bmsj")=now()
bmrs.update
'######################增加报名人数
set pxrs=server.CreateObject("adodb.recordset")
pxsql="select * from pkxx where id="&pxid
pxrs.open pxsql,conn,1,3
bmrs=pxrs("bmrs")
bmrs=bmrs+1
pxrs("bmrs")=bmrs
pxrs.update
'############################
Response.Write "<script language='javascript'>alert('恭喜!报名成功!');</script>" 
%>
<meta http-equiv="refresh" content="1; url=px.asp?id=<%=pxid%>">
<%
response.End
else
Response.Write "<script language='javascript'>alert('对不起,您已经报过名了!');history.back();</script>" 
response.End
end if
end if
pxrs.close
set pxrs=nothing
bmrs.close
set bmrs=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>