?? wish.asp
字號:
End IF
Rs.Close
Set Rs=Nothing
conn=Close
Set conn=Nothing
Call HtmlStart
Response.Write "<td align=""right"" valign=""top"">"&chr(13)&_
"</td>"&chr(13)&_
"</tr>"&chr(13)&_
"</table>"&chr(13)&_
"</center>"&chr(13)&_
"</div>"&chr(13)&_
"<div align=""center"">"&chr(13)&_
"<center>"&chr(13)&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400"" background=""pic/bg.jpg"" height=""300"" style=""border:1 solid black"">"&chr(13)&_
"<tr>"&chr(13)&_
"<td height=230>"&chr(13)&_
"<p align=center><a href=""wish.asp""><img src=""pic/wishing.gif"" width=""95"" height=""90"" border=""0""></a></p>"
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
%>
<td align="right" valign="top">
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400" background="pic/bg.jpg" height="300" style="border:1 solid black">
<tr>
<td height=230>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="200">
<tr>
<td align="center" width="400" style="background-color:white;Filter:Alpha(opacity=40)">
<form method="post" action="wish.asp?action=post">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1">
<tr>
<td align="right">名字 :</td>
<td><input type="text" size="12" maxlength="12" name="name" style="COLOR: blue"></td>
<td align="right">性別 :</td>
<td>
<select name="sex" size="1">
<option selected value="">-請選擇-</option>
<option value="m">男 生</option>
<option value="w">女 生</option>
</select>
</td>
</tr>
<tr>
<td align="right">年齡 :</td>
<td><input type="text" size="12" name="age" style="COLOR: red"></td>
<td align="right">類別 :</td>
<td>
<select name="birth" size="1">
<option selected value="">-請選擇-</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 align="right">信箱 :</td>
<td><input type="text" size="12" name="email" style="COLOR: blue"></td>
<td align="right">院校 :</td>
<td>
<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>
<td colspan="4"><textarea name="msg" rows="4" cols="30"></textarea><font face="新細明體"><input type="submit" value="祈愿" style="BORDER: 1 solid black; COLOR: ffffff; BACKGROUND-COLOR: 808080"></font></td>
</tr>
</table>
</center>
</div>
</form>
</td>
</tr>
</table>
<%
Call HtmlEnd
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SLIGHTBOY_Super%>
<html>
<head>
<title>線上管理</title>
<%Call HtmlStart%>
<td align="right" valign="top">
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400" background="pic/bg.jpg" height="300" style="border:1 solid black">
<tr>
<td height=230>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="180">
<tr>
<td align="center" width="400" style="Filter:alpha(opacity=40);background-color:white">
<form action="wish.asp?action=admin" method="POST">
<div align="center">
<center>
<table border="0" cellspacing="0">
<tr>
<td align="center" colspan="3">管理專區 若非管理員請離開本頁</td>
</tr>
<tr>
<td>管理員名稱</td>
<td><input type="text" size="15" name="id"></td>
<td> </td>
</tr>
<tr>
<td>管理用密碼</td>
<td><input type="password" size="15" name="passid"></td>
<td><input type="submit" value="確定" style="HEIGHT:22PX;BACKGROUND-COLOR:<%=trcolor%>;BORDER:1 SOLID BLACK"></td>
</tr>
</table>
</center>
</div>
</form>
</td>
</tr>
</table>
<%
HtmlEnd
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlStart%>
<html>
<head>
<title><%=title%></title>
<%Call HtmlStyle%>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</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=#808080><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>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td><a href="wish.asp"><img src="pic/b1.gif" width="50" height="20" border=0></a><a href="javascript:history.back()"><img src="pic/b2.gif" width="50" height="20" border=0></a><a href="wish.asp?action=super"><img src="pic/b3.gif" width="50" height="20" border=0></a></td>
<%End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub HtmlEnd
%>
</td>
</tr>
<tr>
<td valign="bottom" height=70><a href="wish.asp?action=add"><img src="pic/wish.gif" alt="祈愿" width="72" height="64" border=0></a></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</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;border:1 solid <%=tdcolor%>;background-color:<%=trcolor%>;color:<%=tdcolor%>}
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>
<%End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Error(msg)
Call HtmlStart
Response.Write "<td align=""right"" valign=""top"">"&chr(13)&_
"</td>"&chr(13)&_
"</tr>"&chr(13)&_
"</table>"&chr(13)&_
"</center>"&chr(13)&_
"</div>"&chr(13)&_
"<div align=""center"">"&chr(13)&_
"<center>"&chr(13)&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400"" background=""pic/bg.jpg"" height=""300"" style=""border:1 solid black"">"&chr(13)&_
"<tr>"&chr(13)&_
"<td height=230>"&chr(13)&_
"<p align=center><br><br><font color=D00000>"&msg&"</font></p>"
Call HtmlEnd
Response.End
End Sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -