 <!--#include file="conn.asp"-->
  <!--#include file="inc/chkinput.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/theme.asp"-->
 
 <!--#include file="footer2.asp"-->

<!--#include file="wish_config.asp"-->
<!--#include file="wish_live.asp"-->

 
<!-- #include file="md5.asp" -->
<!--#include file="footer.asp"-->
<%  if membername="" then
response.redirect "login.asp"
end if
stats="祈愿板"
call nav()
call headline(1)
%>
<%
 
'声明变量
Dim PROName,PROEType,PROCNAME,VerNum,VerUpdate,PROVer,PROType,PROMaster,PROPublish,PROCopyRight,PROCopyRightInfo,CopyRightInfo,JavaCopyRightInfo,sexpic,msg,stremail,birth,info,username,password,DeleteID

PROName="rexsp"
PROEType=" Personnal"
PROCNAME="祈愿板"
VerNum="2.0"
VerUpdate="020325"
PROVer=VerNum&" U "&VerUpdate
PROType="简体中文"
PROMaster="真水无香"
PROPublish=" HTTP://202.117.83.12/xsc"
PROCopyRight="CopyRight (c) 2000-2002 xsc of nwpuw"
PROCopyRightInfo=" All Rights Reserved"

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 "<p align=Center><font color=red>发生错误!</font></p>"
 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 "logout"
   Call SLIGHTBOY_Logout
  Case "del"
   Call SLIGHTBOY_Del
  Case Else
   Call SLIGHTBOY_Look
End Select


Sub SLIGHTBOY_Look
Call HtmlStart
'建立数据库连接
Dim Sql,Rs,TotalRecord,MaxPage,OrderPage
'建立活动游标
'Sql = "Select id,name,sex,age,birth,live,clickcounter From wish Order BY id DESC"
Sql = "Select id,name,sex,age,birth,live,clickcounter From wish order by addtime 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 align=center>共 <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=""wish_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="wish_pic/st01.gif" width="376" height="76"></font></td>
</tr>
<tr>
<td valign="top" width="41"><font color="#FFFFFF"><img src="wish_pic/st02.gif" width="41" height="180"></font></td>
<td valign="top" width="294" background="wish_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
For i = 1 to 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("clickcounter")&"人看过','"&trcolor&"')"";  ONMOUSEOUT=""kill()""><img src=""wish_pic/c"&Rs("birth")&".gif"" border=0></a>"
Rs.MoveNext
IF Rs.Eof or Rs.Bof Then Exit For
Next
End IF
Rs.Close
Set Rs=Nothing
%></td>
<td valign="top" width="41"><font color="#FFFFFF"><img src="wish_pic/st03.gif" width="41" height="180"></font></td>
</tr>
</table>
<%
IF Session("WishAdmin")=True Then
Response.Write _
"<input type=""button"" value="" 退出 "" onClick=""parent.location='?action=logout'"" style=""HEIGHT:22PX;BACKGROUND-COLOR:"&trcolor&";BORDER:1 SOLID BLACK"">"&chr(13)&_
"<input type=""submit"" value="" 删除 "" style=""HEIGHT:22PX;BACKGROUND-COLOR:"&trcolor&";BORDER:1 SOLID BLACK"">"&chr(13)&_
"</form>"
End IF
%>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<%
Call HtmlEnd
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Click
Call HtmlStart
'建立活动游标
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("addtime")&" 留下此愿"
Else
info= Rs("age")&"岁的 "&Rs("name")&" "&sexpic&",来自"&Rs("live")&",于"&Rs("addtime")&" 留下此愿"
End IF
Rs("clickcounter")=Rs("clickcounter")+1
Rs.Update
Rs.Close
Set Rs=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="wish_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 Wish_Error("您忘了填写名字")
IF Request.Form("passid")="" Then Wish_Error("您忘了填写密码")
IF Instr("'",Request.Form("id")) or Instr("""",Request.Form("id")) or Instr("'",Request.Form("passid")) or Instr("""",Request.Form("passid")) Then Wish_Error("名字或密码中含有非法字符")
username=trim(replace(Request.Form("id"),"'",""))
password=md5(trim(replace(Request.Form("passid"),"'","")))
set rs=conn.execute("select u.username,u.userpassword,a.* from [user] u inner join admin a on u.username=a.username where u.username='"&username&"' and u.userpassword='"&password&"' and u.userclass=20")
if rs.eof and rs.bof then
 rs.close
 set rs=nothing
 founderr=true
 Errmsg=Errmsg+"<br>"+"<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a href=admin_login.asp>重新输入</a>您的密码。"
else
 if rs("flag")="" or isnull(rs("flag")) then
 founderr=true
 Errmsg=Errmsg+"<br>"+"<li>系统管理员并没有赋予您登陆本版面的权利。"
 rs.close
 set rs=nothing
 else
 Session("WishAdmin")=True
 Response.Write _
               "<META HTTP-EQUIV=REFRESH CONTENT=""1;URL=wish.asp"">"&_
               "</head><body bgcolor="&trcolor1&" text="&trcolor2&"><center><br><br>登陆成功...</center></body></html>"
 end IF
end IF
if founderr=true then call error()
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Post

IF Request.Form("name") = "" Then Wish_Error("您忘了填写名字")
IF Instr("'",Request.Form("name")) or Instr("""",Request.Form("name")) Then Wish_Error("您名字带有非法字符<br>PS：名字中不能带有 ' 或者 """)
IF Request.Form("sex") = "" Then Wish_Error("您忘了选择性别")
Call CkAge(Request.Form("age"))
IF Request.Form("live") = "" Then Wish_Error("您忘了选择居住地")
IF Request.Form("birth") = "" Then Wish_Error("您忘了选择愿望类别")
IF Request.Form("msg") = "" Then Wish_Error("您忘了填写愿望")
IF maxmessage = "" or maxmessage > 255 Then maxmessage=255
IF Len(Request.Form("msg"))> maxmessage Then Wish_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=ChkBadWords(msg)

StrEmail=Request.Form("email")
IF StrEmail<>"" Then
   IF IsValidEmail(StrEmail)=False Then Wish_Error("请输入正确信箱地址")
End IF

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("addtime")=now+time_ctrl
Rs("clickcounter")=0
Rs.Update

Else
 IF Rs("msg")=msg Then
 Wish_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("addtime")=now+time_ctrl
 Rs("clickcounter")=0
 Rs.Update
 End IF 
End IF
Rs.Close
Set Rs=Nothing
Response.Write "<html><head><title>"&title&"</title>"&_
               "<META HTTP-EQUIV=REFRESH CONTENT=""1;URL=wish.asp"">"&_
               "</head><body bgcolor="&trcolor1&" text="&trcolor2&"><center><br><br>诚心祈求...</center></body></html>"
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Logout
Session("WishAdmin")=""
Response.Write "<html><head><title>"&title&"</title>"&_
               "<META HTTP-EQUIV=REFRESH CONTENT=""1;URL=wish.asp"">"&_
               "</head><body bgcolor="&trcolor1&" text="&trcolor2&"><center><br><br>正在退出...</center></body></html>"
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Del
IF Session("WishAdmin")<>True Then Wish_Error("不要捣乱奥")

IF Request("del")<>"" Then
DeleteID=Split(Request("del"),",")

For i = 0 to Ubound(DeleteID)
  Sql="delete from wish where id="&DeleteID(i)
  conn.execute(Sql)
Next
End IF
 Response.Write _
               "<META HTTP-EQUIV=REFRESH CONTENT=""1;URL=wish.asp"">"&_
               "</head><body bgcolor="&trcolor1&" text="&trcolor2&"><center><br><br>删除成功...</center></body></html>"

End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Add
Call HtmlStart
%>
<form method="post" action="wish.asp?action=post">
<center>
<span style="width:100%;height:23;Filter:Shadow(color=#d9d9d9,direction=125)">
<table border="0" cellpadding="4" cellspacing="0" width="450" style="border:1 solid <%=tdcolor%>">
<tr>
<td bgcolor="<%=tdcolor%>" colspan=4 align=center><font color="#FFFFFF">许&nbsp;&nbsp;&nbsp;&nbsp;愿 (红色部分一定要填)</font></td>
</tr>
<tr>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>名&nbsp;&nbsp;&nbsp;&nbsp;字</font>:&nbsp;</td>
<td bgcolor="<%=trcolor%>"><input maxlength="12" size="12"  name="name" style="color:BLUE"></td>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>性&nbsp;&nbsp;&nbsp;&nbsp;别</font>:&nbsp;</td>
<td bgcolor="<%=trcolor%>">
<select name="sex" size="1">
<option value="" selected>-请选择-</option>
<option value="m" style="color:BLUE">男 生</option>
<option value="w" style="color:RED">女 生</option>
</select>
</td>
<tr>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>年&nbsp;&nbsp;&nbsp;&nbsp;龄</font>:&nbsp;</td>
<td bgcolor="<%=trcolor%>"><input size=12 name="age" style='color:red'></td>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>愿望类别</font>:&nbsp;</td>
<td bgcolor="<%=trcolor%>"><select name="birth">
<option value="" selected>-请选择-</option>
<option value="love">恋 爱</option>
<option value="study">学 业</option>
<option value="health">健 康</option>
<option value="family">家 庭</option>
<option value="work">事 业</option>
<option value="future">将 来</option>
<option value="wealth">财 富</option>
<option value="life">生 活</option>
</select>
</td>
</tr>
<tr>
<td bgcolor=<%=trcolor%> align=right>信&nbsp;&nbsp;&nbsp;&nbsp;箱:&nbsp;</td>
<td bgcolor=<%=trcolor%>><input size=12 name="email" style='color:BLUE'></td>
<td bgcolor=<%=trcolor%> align=right><font color=RED>地&nbsp;&nbsp;&nbsp;&nbsp;区</font>:&nbsp;</td>
<td bgcolor=<%=trcolor%>>
<select name="live">
<option value="" selected>-请选择-</option>
<%
Location=Split(Location,"|")
For i = 0 to Ubound(Location)
Response.Write "<option value="&Location(i)&">"&Location(i)&"</option>"&chr(13)
Next
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="<%=tdcolor%>" colspan="4" align="center"><font color="FFFFFF">愿&nbsp;&nbsp;&nbsp;&nbsp;望</font></td>
</tr>
<tr>
<td bgcolor="<%=trcolor%>" colspan="4" align="center"><textarea name="msg" rows="4" cols="50"></textarea>
</td>
</tr>
<tr>
<td align=center colspan=4 bgcolor="<%=tdcolor%>">
<input type="submit" value="确定送出" style="HEIGHT:22PX;BACKGROUND-color:<%=tdcolor%>;border:1 SOLID FFFFFF;color:FFFFFF">
<input type="reset" value="清除重来" style="HEIGHT:22PX;BACKGROUND-color:<%=tdcolor%>;border:1 SOLID FFFFFF;color:FFFFFF">
<input type="button" value="回上一页" onclick="history.back()" style="HEIGHT:22PX;BACKGROUND-color:<%=tdcolor%>;border:1 SOLID FFFFFF;color:FFFFFF">
</td>
</tr>
</table>
<br><br>
</span>
</form>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
</body>
</html>

<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>线上管理</title>
<%Call HtmlStyle%>
</head>
<body bgcolor=<%=trcolor1%> text=<%=trcolor2%> background=<%=bggif%>>

<center>
<table border=0 cellspacing=0 cellpadding=2>
<form method="post" action="wish.asp?action=admin">
<tr>
<td colspan=3 align=center bgcolor=<%=tdcolor%>><font color=FFFFFF>管理专区</td>
</tr>
<tr bgcolor=<%=trcolor%>>
<td>管理员名称</td>
<td><input type="text" name="id" size="15"></td>
<td><input type="button" value="回上一页" onclick="history.back()" style="HEIGHT:22PX;BACKGROUND-color:<%=trcolor%>;border:1 SOLID BLACK"></td>
</tr>
<tr bgcolor=<%=trcolor%>>
<td>管理用密码</td>
<td><input type="password" name="passid" size=15></td>
<td><input type="submit" value="确定执行" style="HEIGHT:22PX;BACKGROUND-color:<%=trcolor%>;border:1 SOLID BLACK"></td>
</tr>
<tr>
<td colspan=3 align=center bgcolor=<%=tdcolor%>><font color=FFFFFF>若非管理员请离开本页</td>
</tr>
</table>
</form>
</body>
</html>
<%
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlStyle%>
<style type="text/css">
<!--
body,td,input,select   {font-family:宋体;font-size: 9pt;}
textarea,input,button  {font-family:宋体;font-size: 9pt;}
a:hover { font-family:宋体;text-decoration:underline; color:<%=trcolor%>;}
a { font-family:宋体;text-decoration:none; color:<%=tdcolor%>;}
body{overflow:scroll;overflow-x:hidden}
.popper{position : absolute;visibility : hidden;}
//-->
</style>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlStart%>
<!--
\\
<%=CopyRightInfo%>
//
-->
<html>
<head>
<title><%=title%></title>
<%Call HtmlStyle%>
</head>
<body bgcolor="<%=trcolor1%>" text="<%=trcolor2%>" background="<%=bggif%>">
<DIV ID="topdeck" CLASS="popper">&nbsp;</DIV>

<SCRIPT>
var nav = (document.layers); 
var iex = (document.all);
var skn = (nav) ? document.topdeck : topdeck.style;
if (nav) document.captureEvents(Event.MOUSEMOVE);
document.onmousemove = get_mouse;

function pop(msg,bak) 
{
var content ="<table width=130 border=0 cellpadding=2 cellspacing=2 bgcolor=<%=tdcolor%>><tr><td><font color=#FFFFFF>"+msg+"</center></font></td></tr></table>";

  if (nav) 
  { 
    skn.document.write(content); 
	  skn.document.close();
	  skn.visibility = "visible";
  }
    else if (iex) 
  {
	  document.all("topdeck").innerHTML = content;
	  skn.visibility = "visible";  
  }
}

function get_mouse(e) 
{
	var x = (nav) ? e.pageX : event.x+document.body.scrollLeft; 
	var y = (nav) ? e.pageY : event.y+document.body.scrollTop;
	skn.left = x - 60;
  skn.top  = y+20;
}

function kill() 
{
  skn.visibility = "hidden";
}

</SCRIPT>

<center>
<table border="0" cellpadding="1" cellspacing="0" width=460>
<tr>
<td nowrap>
<a href="wish.asp?action=add"><img src="wish_pic/b1.gif" align="bottom" border="0" width="20" height="60"></a>
<a href="javascript:history.back()"><img src="wish_pic/b2.gif" align="bottom" border="0" width="20" height="60"></a>
<a href="wish.asp"><img src="wish_pic/b3.gif" align="bottom" border="0" width="20" height="60"></a>
<a href="wish.asp?action=super"><img src="wish_pic/b6.gif" align="bottom" border="0" width="20" height="60">
</td>
<td width=350 align=center><IMG SRC="<%=titlegif%>" border=0></td>
</tr>
</table>
</center>
</div>
<%End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlEnd
Response.Write "<!-- 请勿删除 版权声明 -->"&chr(13)&_
""&chr(13)&_
"<!-- 请勿删除 版权声明 -->"&chr(13)&_
"</center>"&chr(13)&_
"</body>"&chr(13)&_
"</html>"

call endline()

End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Wish_Error(msg)
Call HtmlStart
Response.Write "<p align=center><br><br><font color=red>"&msg&"</font></p>"
Call HtmlEnd
Response.End
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CkAge(LngAge)
IF LngAge="" Then Wish_Error("您忘了填写年龄")
Dim RE
Set RE = New RegExp
RE.Pattern = "[0-9]{"&Len(LngAge)&"}"
RE.IgnoreCase = False
RE.Global = False
CkAge = RE.Test(LngAge)
Set RE = Nothing
IF CkAge = True Then
IF LngAge < 2 Then Wish_Error("您的年龄太小了<br>PS：孩子 您这么小就能上网啊 真厉害! 将来肯定比我强! 来哥哥(SLIGHTBOY)赏你个棒棒糖 ^*^")
IF LngAge > 100 Then Wish_Error("您的年龄太大了<br>PS：不会吧？ 老爷爷 精力充沛啊 还上网啊 活这么久能告诉我方法吗？ 我帮你宣传宣传 ^*^")
Else
Wish_Error("年龄栏只能输入数字")
End IF
End Function
%>