📄 index.asp
字号:
<%
page = Request.QueryString("page")
action = Request.QueryString("action")
action_e = Request.Form("action_e")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.mdb")
%>
<html>
<head>
<title>TopBook v1.0</title>
<meta name="keywords" content="小虾留言本">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="gbstyle.css" type="text/css">
<style type="text/css">
<!--
body,td,th {
font-family: 宋体;
color: #555555;
}
body {
margin-top: 0px;
background-image: url(/images/bg.gif);
}
.style1 {color: #000000}
.style2 {color: #2A9FFF}
-->
</style></head>
<script language="JavaScript">
<!--
function reloadPage(init) {
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.pgW=innerWidth; document.pgH=innerHeight; onresize=reloadPage; }}
else if (innerWidth!=document.pgW || innerHeight!=document.pgH) location.reload();
}
reloadPage(true);
function jumpMenu(targ,selObj,restore){
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function openBrWindow(theURL,winName,features) {
window.open(theURL,winName,features);
}
function get_cookie(Name){
var search = Name + "="
var returnvalue = "";
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset);
if (end == -1)
end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset,end))
}
}
return returnvalue;
}
function swapImgRestore() {
var i,x,a=document.sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function preloadImages() {
var d=document; if(d.images){ if(!d.p) d.p=new Array();
var i,j=d.p.length,a=preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.p[j]=new Image; d.p[j++].src=a[i];}}
}
function findObj(n, d) {
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function swapImage() {
var i,j=0,x,a=swapImage.arguments; document.sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=findObj(a[i]))!=null){document.sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<body leftmargin="0" marginwidth="0" style="background-attachment: fixed">
<div align="center">
<table width="530" border="0" cellpadding="0" cellspacing="0" class="boder" style="border: 1px dotted #C0C0C0">
<tr>
<td width="530" height="50" valign="top">
<div align="center">
<table width="530" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="530" height="18" align="center" background="images/top_01.gif">
<marquee scrollamount="2" scrolldelay="150" style="font-size: 9pt; font-family: 宋体" width="90%"> <span class="style2">欢迎您使用TopBook,如果有问题请在http://dragon.asp8.cn提出! </span></marquee></td>
</tr>
<tr>
<td width="530" height="13" align="center"></td>
</tr>
<tr>
<td height="86"><img src="/images/top.gif" width="530" height="86"></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="46" valign="top"><table width="530" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F0F0F0">
<tr>
<td align="center" valign="top" class="input1">
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'主程序
Select Case action_e
Case ""
Case "Add_New"
Call Add_New_Execute()
Case "reply"
Call Reply_Execute()
Case "admin"
Call Admin_Login_Execute()
Case "EditPWD"
Call EditPWD_Execute()
Case "Edit"
Call Edit_Execute()
End Select
Call Main_Menu()
Select Case action
Case "UbbHelp"
Call UbbHelp()
Case "Admin_Login"
Call Admin_Login()
Case "Exit"
Call Exit_Admin()
Call View_Words()
Case ""
Call View_Words()
Case "Add_New"
Call Add_New()
Case "reply"
Call Reply()
Case "View_Words"
Call View_Words()
Case "Delete"
Call Delete()
Call View_Words()
Case "EditPWD"
Call EditPWD()
Case "Edit"
Call Edit()
End Select
Call Copyrights()
%> </td>
</tr>
</table>
<table width="530" height="27" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="images/bg.gif"> <a href="http://dragon.asp8.cn" target="_blank">Copyright©(jlu)konggeer</a></td>
</tr>
<tr>
<td background="images/top_01.gif"> </td>
</tr>
</table></td>
</tr>
</table>
</div>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加一条新留言
%>
<% Sub Add_New() %>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="new" method="post" action="index.asp">
<tr>
<td colspan="2" align="center"> ^v^写两笔^v^ </td>
</tr>
<tr>
<td width="0" align="right"> 妮称:</td>
<td width="357"> <input type="text" name="name" class="input1" size="40"> </td>
</tr>
<tr>
<td align="right">主页:</td>
<td> <input type="text" name="web" class="input1" size="40"> </td>
</tr>
<tr>
<td align="right"> 邮箱:</td>
<td> <input type="text" name="email" class="input1" size="40"> </td>
</tr>
<tr>
<td align="right" valign="top"> 内容:</td>
<td> <textarea name="words" cols="42" rows="5" class="input1"></textarea>
</td>
</tr>
<tr align="center">
<td colspan="2"> <input type="hidden" name="action_e" value="Add_New">
<input type="submit" name="Submit" value=" " class="submit"> </td>
</tr>
</form>
</table>
<br>
<% End Sub %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'管理员回复留言
%>
<% Sub Reply() %>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="index.asp">
<tr>
<td colspan="2" align="center">
回复留言
</td>
</tr>
<tr>
<td align="right" valign="top">
留言内容：
</td>
<td>
<textarea name="reply" cols="50" rows="5" class="input1"></textarea>
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="hidden" name="action_e" value="reply"> <input type="hidden" name="id" value="<%=Request.QueryString("id")%>">
<input type="submit" name="Submit3" value="提交" ID="Submit1" class="input1"> <input type="reset" name="Submit22" value="重写" class="input1">
</td>
</tr>
</form>
</table>
<% End Sub %>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<% Sub Main_Menu() %>
<table width="499" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"> <p><br>
<a href="index.asp?action=Add_New"> <img src="images/tjly.gif" alt="添加留言" width="36" height="35" border="0" class="bian"> </a>
<a href="index.asp?action=View_Words"><img src="images/ckly.gif" alt="查看留言" width="36" height="35" class="bian"> </a>
<% If Session("Admin")="Login" Then %>
<a href="index.asp?action=Exit"><img src="images/tcgl.gif" alt="退出管理" width="43" height="28" class="bian"></a>
<% Else %>
<a href="index.asp?action=Admin_Login"><img src="images/glly.gif" alt="管理留言" width="36" height="35" class="bian"></a>
<% End If %>
<a href="index.asp?action=UbbHelp"><img src="images/ubb.gif" alt="UUB帮助" width="36" height="35" class="bian"></a>
<% If Session("Admin")="Login" Then %>
<a href="index.asp?action=EditPWD"><img src="images/xgmm.gif" alt="修改密码" width="40" height="40" class="bian"></a>
<% End If %>
</p> </td>
</tr>
<tr>
<td align="center" background="images/line.gif"> </td>
</tr>
</table>
<br>
<% End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'查看留言
Sub View_Words()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Order By date Desc"
Rs.Open Sql,Conn,1,1
TotalRecord=Rs.RecordCount
Rs.PageSize =2 '每页显示留言的数目
PageSize = Rs.PageSize
PageCount=Rs.PageCount
If page="" Then
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = page
End If
%>
<table width="499" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
</tr>
</table>
<table width="499" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><p align="center"><img src="IMAGES/line.gif" width="470" height="1"></td></p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -