"&title&"

<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'JR Wish Board Version2 '日式祈愿板 2.0 '程序作者 SLIGHTBOY '版权所有 SLIGTHBOY ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '请勿修改本程序! '如果确有特殊原因，需要修改请联系 SLIGHTBOY webmaster@slightboy.com '一旦发现有违反协议者，本站不会提供任何技术支持，并且不能得程序的后续版本和本站出品的其他程序。 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '声明变量 Dim PROName,PROEType,PROCNAME,VerNum,VerUpdate,PROVer,PROType,PROMaster,PROPublish,PROCopyRight,CopyRightInfo,JavaCopyRightInfo PROName="JR Wish Board Version2" PROEType="Single-User Personnal" PROCNAME="日式祈愿板 2.0 或少女祈愿板 2.0" VerNum="2.0" VerUpdate="020325" PROVer=VerNum&" U "&VerUpdate PROType="个人用户正式版 (简体中文)" PROMaster="SLIGHTBOY" PROPublish=" HTTP://WWW.SLIGHTBOY.COM" PROCopyRight="CopyRight (c) 2000-2002 SLIGHTBOY.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 '建立数据库连接 Dim Conn,Sql,Rs,TotalRecord,MaxPage,OrderPage Set Conn=server.CreateObject("adodb.connection") Conn.Open "provider=microsoft.jet.oledb.4.0; data source="&DBpath '建立活动游标 Sql = "Select id,name,sex,age,birth,live,counter From wish Order BY id DESC" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open Sql,conn,1,1 TotalRecord=Rs.RecordCount Rs.PageSize=Show MaxPage=Rs.pagecount OrderPage=Clng(Request("page")) IF OrderPage="" or OrderPage=0 then OrderPage=1 ElseIF OrderPage > MaxPage Then OrderPage=MaxPage End IF %>

共 <%=TotalRecord%> 笔 | 语法 : <%=use_html%> | 每页 <%=show%> 笔

"&chr(13)&_ "

KEY
恋爱	Love
学业	Study
健康	Health
家庭	Family
事业	Work
将来	Future
财富	Wealth
生活	Life

<% Response.Write ""&chr(13)&_ "

"&chr(13)&_ ""&chr(13)&_ "

"&chr(13)&_ "

"&chr(13)&_ ""&chr(13) IF Session("WishAdmin")=True Then Response.Write "" End IF %>

<% Call HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Click Call HtmlStart '建立数据库连接 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 %>

<%=msg%>
	<%=info%>

<% Call HtmlEnd End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Admin IF Request.Form("id")="" Then Error("您忘了填写名字") IF Request.Form("passid")="" Then Error("您忘了填写密码") IF Instr("'",Request.Form("id")) or Instr("""",Request.Form("id")) or Instr("'",Request.Form("passid")) or Instr("""",Request.Form("passid")) Then Error("名字或密码中含有非法字符") IF Request.Form("id")=userid or Request.Form("passid")=userpass Then Session("WishAdmin")=True Response.Redirect "wish.asp" Else Error("密码错误") 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("您忘了选择性别") Call CkAge(Request.Form("age")) 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,1,3 IF Rs.Eof Then Rs.AddNew Rs("name")=Request.Form("name") 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 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 Response.Write ""&title&""&_ ""&_ "

诚心祈求..." End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Del IF Session("WishAdmin")<>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 %>

许愿 (红色部分一定要填)
名字:		性别:
年龄:		愿望类别:
align=right>信箱:	>	align=right>地区:	>
愿望

<% End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub SLIGHTBOY_Super%> 线上管理 <%Call HtmlStyle%> text=<%=trcolor2%> background=<%=bggif%>> > >

>管理专区
管理员名称
管理用密码
>若非管理员请离开本页

<% End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub HtmlStyle%> <%End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub HtmlStart%> <%=title%> <%Call HtmlStyle%>

<%End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub HtmlEnd Response.Write ""&chr(13)&_ "

"&chr(13)&_ " JR Wish Board Version2 SLIGHTBOY and Pizza Creation"&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ "

"&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ ""&chr(13)&_ "" End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Error(msg) Call HtmlStart Response.Write "

"&msg&"

" Call HtmlEnd Response.End End Sub %>