<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'JR Wish Board Bottle '(日式祈愿板或少女祈愿版) 之 祈愿漂流瓶 '程序作者 流星宿缘 '版权所有 碧莲情感娱乐网 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '请勿修改本程序! '如果确有特殊原因,需要修改 请联系 流量宿缘 webmaster@qq778.com '一旦发现有违反协议者,本站不会提供任何技术支持,并且不能得程序的后续版本和本站出品的其他程序。 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '声明变量 Dim PROName,PROEType,PROCNAME,VerNum,VerUpdate,PROVer,PROType,PROMaster,PROPublish,PROCopyRight,CopyRightInfo,JavaCopyRightInfo PROName="JR Wish Board Bottle" PROEType="Single-User Personnal" PROCNAME="(日式祈愿板或少女祈愿版) 之 祈愿漂流瓶" VerNum="2.0" VerUpdate="020325" PROVer=VerNum&" U "&VerUpdate PROType="个人用户正式版 (简体中文)" PROMaster="SLIGHTBOY" PROPublish=" HTTP://WWW.qq778.COM" PROCopyRight="CopyRight (c) 2000-2002 qq778.com.All Rights Reserved" PROCopyRightInfo="请尊重著作者劳动 保留以上版权信息 谢谢合作" CopyRightInfo = PROName&chr(13)&_ "中文名字:"&PROCNAME&chr(13)&_ "版本号:"&PROVer&chr(13)&_ "版本类型:"&PROType&chr(13)&_ "程序制作:"&PROMaster&chr(13)&_ "程序唯一正式发布地址:"&PROPublish&chr(13)&_ PROCopyRight&chr(13)&_ PROCopyRightInfo JavaCopyRightInfo = PROName&"\n"&_ "中文名字:"&PROCNAME&"\n"&_ "版本号:"&PROVer&"\n"&_ "版本类型:"&PROType&"\n"&_ "程序制作:"&PROMaster&"\n"&_ "程序唯一正式发布地址:"&PROPublish&"\n"&_ PROCopyRight&"\n"&_ PROCopyRightInfo IF err>0 Then Call HtmlStart Response.Write "

发生错误!

" Call HtmlEnd Response.End End IF Select Case Request("action") Case "click" Call SLIGHTBOY_Click Case "add" Call SLIGHTBOY_Add Case "post" Call SLIGHTBOY_Post Case "super" Call SLIGHTBOY_Super Case "admin" Call SLIGHTBOY_Admin Case "del" Call SLIGHTBOY_Del Case Else Call SLIGHTBOY_Look End Select Sub SLIGHTBOY_Look Call HtmlStart %> <%=TotalRecord%> 笔 | 漂流999天| 页 <%=show%>
<% IF Session("BottleAdmin")=True Then Response.Write "
" End IF IF not Rs.eof Then IF OrderPage <> 1 Then Rs.Move (OrderPage-1)*Show End IF i=1 Do While not Rs.eof and i<=Show IF Rs("sex")="m" Then sexpic="♂" Else sexpic="♀" End IF IF Session("BottleAdmin")=True Then Response.Write "" End IF Response.Write ""&chr(13)&_ "有"&Rs("counter")&"人看过','"&trcolor&"')""; ONMOUSEOUT=""kill()"">"&chr(13)&_ ""&chr(13)&_ ""&chr(13) i=i+1 Rs.MoveNext Loop End IF Rs.Close Set Rs=Nothing conn.Close Set conn=Nothing %> <% IF Session("BottleAdmin")=True Then Response.Write "

" Response.Write ""&chr(13) Response.Write "

" End IF Call HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Click Call HtmlStart %>
"&chr(13)&_ ""&chr(13)&_ "
<% '建立数据库连接 Set Conn=server.CreateObject("adodb.connection") Conn.Open "provider=microsoft.jet.oledb.4.0; data source="&DBpath '建立活动游标 Sql = "Select * From wish Where id="&Clng(Request.Querystring("number")) Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open Sql,conn,1,3 birth=Rs("birth") msg=Rs("msg") IF Rs("sex")="m" Then sexpic="先生" Else sexpic="小姐" End IF IF Rs("email")<>"" Then info= Rs("age")&"岁的 "&Rs("name")&" "&sexpic&",来自"&Rs("live")&",于"&Rs("date")&" 留下此愿" Else info= Rs("age")&"岁的 "&Rs("name")&" "&sexpic&",来自"&Rs("live")&",于"&Rs("date")&" 留下此愿" End IF Rs("counter")=Rs("counter")+1 Rs.Update Rs.Close Set Rs=Nothing conn.Close Set conn=Nothing %>
<%=info%>
<%=msg%>
<% Call HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Admin 'IF Request.Form("id")="" Then Error("您忘了填写名字") 'IF Request.Form("passid")="" Then Error("您忘了填写密码") IF Request.Form("id")<>userid or Request.Form("passid")<>userpass Then Error("密码错误") Else Session("BottleAdmin")=True Response.Redirect "wish.asp" End IF End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Post IF Request.Form("name")="" Then Error("您忘了填写名字") IF Instr("'",Request.Form("name")) or Instr("""",Request.Form("name")) Then Error("您名字带有非法字符
PS:名字中不能带有 ' 或者 """) IF Request.Form("sex")="" Then Error("您忘了选择性别") IF CkAge(Request.Form("age")) = False Then Error("年龄栏只能输入数字") IF Request.Form("live")="" Then Error("您忘了选择居住地") IF Request.Form("birth")="" Then Error("您忘了选择愿望类别") IF Request.Form("msg")="" Then Error("您忘了填写愿望") IF maxmessage = "" or maxmessage > 255 Then maxmessage=255 IF Len(Request.Form("msg"))> maxmessage Then Error("您的愿望太长了") IF use_html="ON" Then msg=HTMLcode(Request.Form("msg")) Else msg=HTMLEncode(Request.Form("msg")) End IF IF usr_fltbadword="ON" Then msg=CkBadWords(msg) StrEmail=Request.Form("email") 'IF StrEmail<>"" Then ' IF chkemail(StrEmail)=False Then Error("请输入正确信箱地址") 'End IF Set Conn=server.CreateObject("adodb.connection") Conn.Open "provider=microsoft.jet.oledb.4.0; data source="&DBpath Sql = "Select TOP 1 * From wish Order BY id DESC" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open Sql,conn,3,3 IF Rs.Eof Then Rs.AddNew Rs("name")=Trim(Replace(Request.Form("name"),"'","")) Rs("sex")=Request.Form("sex") Rs("age")=Request.Form("age") Rs("birth")=Request.Form("birth") Rs("email")=StrEmail Rs("live")=Request.Form("live") Rs("msg")=msg Rs("date")=now+time_ctrl Rs.Update Else IF Rs("msg")=msg Then Error("请勿重覆登录") Else Rs.AddNew Rs("name")=Request.Form("name") Rs("sex")=Request.Form("sex") Rs("age")=Request.Form("age") Rs("birth")=Request.Form("birth") Rs("email")=StrEmail Rs("live")=Request.Form("live") Rs("msg")=msg Rs("date")=now+time_ctrl Rs.Update End IF End IF Rs.Close Set Rs=Nothing conn=Close Set conn=Nothing Call HtmlStart Response.Write "
"&chr(13)&_ "
"&chr(13)&_ "
"&chr(13)&_ "
"&chr(13)&_ "
"&chr(13)&_ "
"&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ "
"&chr(13)&_ "

" Call HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Del IF Session("BottleAdmin")<>True Then Error("不要捣乱奥") IF Request("del")<>"" Then DeleteID=Split(Request("del"),",") Set Conn=server.CreateObject("adodb.connection") Conn.Open "provider=microsoft.jet.oledb.4.0; data source="&DBpath For i = 0 to Ubound(DeleteID) Sql="delete from wish where id="&DeleteID(i) conn.execute(Sql) Next conn.close Set conn=Nothing End IF Response.Redirect"wish.asp" End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Add Call HtmlStart %>
名字 : 性别 :
年龄 : 类别 :
信箱 : 地区 :
<% Call HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Super%> 线上管理 <%Call HtmlStart%>
管理专区    若非管理员请离开本页
管理员名称  
管理用密码
<% HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub HtmlStart%> <%=title%> <%Call HtmlStyle%>
 

<%=title%>

<%End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub HtmlEnd %>
祈愿
<% End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub HtmlStyle%> <%End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Error(msg) Call HtmlStart Response.Write ""&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ "
"&chr(13)&_ "
"&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ "
"&chr(13)&_ "



"&msg&"

" Call HtmlEnd Response.End End Sub %>