📄 wish.asp

📁 漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="config.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="live.txt"-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'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="020820"
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

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
%>
<center>
<table border="0" cellpadding="2" cellspacing="0">
<tr>
<td>
<select name="SLIGHTBOY" onChange="location.href=this.options[this.selectedIndex].value;" style="BACKGROUND:<%=tdcolor%>;color:<%=trcolor%>">
<%
Response.Write "<option value='wish.asp?page="&OrderPage&"' selected>第"&OrderPage&"页*</option>"
 For i= 1 TO MaxPage
  Response.Write "<option value='wish.asp?page="&i&"'>第"&i&"页</option>"
 Next
%>
</select>
</td>	
</td>
<td>共 <font color="<%=tdcolor%>"><b><%=TotalRecord%></b></font> 笔 | 语法 : <font color="<%=tdcolor%>"><b><%=use_html%></b></font> | 每页 <font color="<%=tdcolor%>"><b><%=show%></b></font> 笔</td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="1" cellspacing="0" style="border:1 solid <%=tdcolor%>">
<tr>
<td colspan="2" bgcolor="<%=tdcolor%>"><font color="#FFFFFF" size="1" face="Arial">KEY</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">恋爱 </td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Love</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">学业 </td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Study</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">健康 </td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Health</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">家庭 </td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Family</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">事业 </td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Work</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">将来 </td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Future</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">财富</td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Wealth</font></td>
</tr>
<tr>
<td align="center" width="30" bgcolor="<%=trcolor%>">生活</td>
<td width="50" bgcolor="<%=trcolor%>"><font size="1" face="Arial">Life</font></td>
</tr>
</table>
<%
Response.Write "<!-- 请勿删除 版权声明 -->"&chr(13)&_
"<p align=center>"&chr(13)&_
"<a href=""wish.asp?action=add""><img src=""pic/cr.gif"" width=""88"" height=""31"" border=""0"" title="""&CopyRightInfo&"""></a>"&chr(13)&_
"</p>"&chr(13)&_
"<!-- 请勿删除 版权声明 -->"&chr(13)&_
"</td>"&chr(13)&_
"<td>"&chr(13)&_
"<div align=""center"">"&chr(13)&_
"<center>"&chr(13)

IF Session("WishAdmin")=True Then
Response.Write "<form method=""post"" action=""wish.asp?action=del"">"
End IF
%>
<table border="0"cellpadding="0" cellspacing="0">
<tr>
<td valign="bottom" colspan="3"><font color="#FFFFFF"><img src="pic/st01.gif" width="376" height="76"></font></td>
</tr>
<tr>
<td valign="top" width="41"><font color="#FFFFFF"><img src="pic/st02.gif" width="41" height="180"></font></td>
<td valign="top" width="294" background="pic/st04.gif" style="font-size:2pt">
<%
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("WishAdmin")=True Then
Response.Write "<input type=""checkbox"" name=""Del"" value="""&Rs("id")&""">"
End IF
Response.Write "<a href=""wish.asp?action=click&number="&Rs("id")&""" ONMOUSEOVER=""pop('今年"&Rs("age")&"岁住在"&Rs("live")&"的<br>"&Rs("name")&sexpic&"许了一个愿...<br>有"&Rs("counter")&"人看过','"&trcolor&"')"";  ONMOUSEOUT=""kill()""><img src=""pic/c"&Rs("birth")&".gif"" border=0></a>"
i=i+1
Rs.MoveNext
Loop
End IF
Rs.Close
Set Rs=Nothing
conn.Close
Set conn=Nothing
%></td>
<td valign="top" width="41"><font color="#FFFFFF"><img src="pic/st03.gif" width="41" height="180"></font></td>
</tr>
</table>
<%
IF Session("WishAdmin")=True Then
Response.Write "<input type=""submit"" value="" 删除 "" style=""HEIGHT:22PX;BACKGROUND-COLOR:"&trcolor&";BORDER:1 SOLID BLACK"">"&chr(13)
Response.Write "</form>"
End IF
%>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<%
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")&"岁的 <a href=""mailto:"&Rs("email")&""">"&Rs("name")&"</a> "&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
%>
<div align="center">
<center>
<br><br>
<span style="width:100%;height:23;Filter:Shadow(color=#d9d9d9,direction=125)">
<table border="0" cellpadding="4" cellspacing="0" width="380" style="border:1 solid #CEB068">
<tr>
<td background="pic/b<%=birth%>.gif" bgcolor="#FBF0D7"><table border="0" width="100%">
<tr>
<td valign="top" colspan="2" height="190"><font color="#A08034"><%=msg%></font></td>
</tr>
<tr>
<td><font color="#A08034"></font> </td>
<td align="right"><font color="#A08034"><%=info%></font></td>
</tr>
</table>
</td>
</tr>
</table>
<br><br>
</span>
</center>
</div>
<%
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("您名字带有非法字符<br>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
12 下一页
💿 文件大小 8128 K
👤 上传用户 qqpp2q
📂 所属分类其他书籍
🏷️ 相关标签

#修改 #v11 #BUG #企业网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -