📄 wish.asp
字号:
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 usr_emailcheck="ON" and StrEmail<>"" Then
IF IsValidEmail(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 "<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 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
%>
<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="380" style="border:1 solid <%=tdcolor%>">
<tr>
<td bgcolor="<%=tdcolor%>" colspan=4 align=center><font color="#FFFFFF">许 愿 (红色部分一定要填)</font></td>
</tr>
<tr>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>名 字</font>: </td>
<td bgcolor="<%=trcolor%>"><input maxlength="12" size="12" name="name" style="color:BLUE"></td>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>性 别</font>: </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>年 龄</font>: </td>
<td bgcolor="<%=trcolor%>"><input size=12 name="age" style='color:red'></td>
<td bgcolor="<%=trcolor%>" align=right><font color=RED>愿望类别</font>: </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>信 箱: </td>
<td bgcolor=<%=trcolor%>><input size=12 name="email" style='color:BLUE'></td>
<td bgcolor=<%=trcolor%> align=right><font color=RED>地 区</font>: </td>
<td bgcolor=<%=trcolor%>>
<select name="live">
<option value="" selected>-请选择-</option>
<option value></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">愿 望</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 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%>
<html>
<head>
<title><%=title%></title>
<%Call HtmlStyle%>
</head>
<body bgcolor="<%=trcolor1%>" text="<%=trcolor2%>" background="<%=bggif%>">
<DIV ID="topdeck" CLASS="popper"> </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 width=90>
<a href="wish.asp?action=add"><img src="pic/b1.gif" align="bottom" border="0" width="20" height="60"></a>
<a href="javascript:history.back()"><img src="pic/b2.gif" align="bottom" border="0" width="20" height="60"></a>
<a href="wish.asp"><img src="pic/b3.gif" align="bottom" border="0" width="20" height="60"></a>
<a href="wish.asp?action=super"><img src="pic/b6.gif" align="bottom" border="0" width="20" height="60">
</td>
<td width=350 align=center><a href="<%=userhomepage%>" title="返回 首页 - <%=title%>"><img src="<%=titlegif%>" border="0"></a></td>
</tr>
</table>
</center>
</div>
<%End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlEnd
Response.Write "<!-- 请勿删除 版权声明 -->"&chr(13)&_
"<div align=center>"&chr(13)&_
" <a href=""http://www.slightboy.com"" title=""访问 JR WISH 的技术支持站点""><font face=arial size=-2>JR Wish Board Version2 SLIGHTBOY and Pizza Creation</font></a> <a href=""http://www.slightboy.com""><img src=""pic/slightboy.gif"" alt="""&CopyRightInfo&""" width=""12"" height=""12"" border=""0""></a>"&chr(13)&_
"</div>"&chr(13)&_
"<!-- 请勿删除 版权声明 -->"&chr(13)&_
"</center>"&chr(13)&_
"</body>"&chr(13)&_
"</html>"
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Error(msg)
Call HtmlStart
Response.Write "<p align=center><br><br><font color=red>"&msg&"</font></p>"
Call HtmlEnd
Response.End
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -