📄 index.asp
字号:
<%
'''''
'''''''#################################################
dim page '定义变量
page = Request.QueryString("page") '获得分页,Request.QueryString 是用来接收如 index.asp?page=1 等号后的值,可以简写为Request("page")
if page="" then page=1
page2 = Request.QueryString("k")
if page2="" then page2=1
action = Request.QueryString("action") 'ASP中也可以不定义变量就使用
action_e = Request.Form("action_e") ' Request.Form 是接收表单的值
'连接数据库
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.asp")
dim webtitle,webname,webyn,webgl,webyn2,view2
set rs1 = conn.execute("select * from admin")
if rs1("title")<>"" then webtitle=rs1("title")
if rs1("webname")<>"" then webname=rs1("webname")
if rs1("gbyn")<>"" then webyn=rs1("gbyn")
webgl=rs1("gl")
rs1.close
set rs1=nothing
%>
<html>
<head>
<title><%=webname%></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">
<!--
.unnamed1 {
font-size: 12px;
line-height: 24px;
}
form {margin-bottom:0;margin-top:0}
.style1 {
color: #990000;
font-weight: bold;
}
-->
</style>
<link href="../index.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="index.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
//这是限制文本输入数量的JSP函数,请查找 gbcount 在下面可以看到如何调用
function gbcount(message,total,used,remain)
{
var max;
max = total.value;
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超过 500 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('about_us_over.gif','contact_over.gif','site_map_over.gif','faq_over.gif')">
<table width="450" height="270" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="tableall">
<tr>
<td width="0" height="0" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="6" class="tablrigh">
<tr>
<td height="8"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="center">
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'主程序
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()
Case "Edit_web"
Call Edit_web()
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()
Case "Edit_web"
Call Edit_web()
End Select
%>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</td>
</tr>
</table>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加一条新留言
%>
<% Sub Add_New() %>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="new" method="post" action="index.asp">
<tr>
<td height="25" colspan="3" align="center"> <div align="center" class="topic"><strong>请
您 留 言</strong><font color="#000000"> </font></div>
<img src="line.gif" width="450" height="1"> </td>
</tr>
<tr class="texthei">
<td width="117" > <div align="right">姓名：</div></td>
<td width="265"> <input type="text" name="name" class="input1" size="20" maxLength=10>
<span class="topic">*</span>10个字内</td>
<td width="156"> </td>
</tr>
<tr class="texthei">
<td align="right"> 性别： </td>
<td> <input type="radio" name="sex" value="1" checked>
男
<input type="radio" name="sex" value="0">
女 </td>
<td rowspan="5"> </td>
</tr>
<tr class="texthei">
<td align="right">QQ：</td>
<td> <input name="qq" type="text" class="input1" id="qq" size="14" maxLength=13>
<span class="topic">*</span>方便联系 </td>
</tr>
<tr class="texthei">
<td align="right">主页： </td>
<td> <input name="web" type="text" class="input1" value="http://" size="35" maxLength=50>
</td>
</tr>
<tr class="texthei">
<td align="right">来自：</td>
<td> <input name="come" type="text" class="input1" id="come" size="35"></td>
</tr>
<tr class="texthei">
<td align="right"> 电子邮箱： </td>
<td> <input name="email" type="text" class="input1" value="@" size="35" maxLength=50>
<span class="topic">*</span> </td>
</tr>
<tr class="texthei">
<td align="right" valign="top"> <br>
<br>
<br>
<br>
留言内容： </td>
<td colspan="2"> <textarea name="words" cols="35" rows="6" class="input1"
onkeydown=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);
onkeyup=gbcount(this.form.words,this.form.total,this.form.used,this.form.remain);></textarea><span class="topic">* </span></td>
</tr>
<tr class="texthei">
<td colspan="3" align="right" valign="top"> <div align="center">
<input type="hidden" name="action_e" value="Add_New">
<input type="submit" name="Submit" value="提交" class="input1">
<input type="reset" name="Submit2" value="重写" class="input1">
</div></td>
</form>
</table>
<br>
<% End Sub %>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<% Sub Main_Menu() %>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="287"> <a href="index.asp?action=Add_New"><img src="newthread.gif" border="0"></a><a href="index.asp?action=View_Words"><img src="lookgb.gif" border="0"></a></td>
</tr>
</table>
<% End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'查看留言
Sub View_Words()
'几个ASP语句说明(温故而知新)
'sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" 使用 rs("别名") 得到值
'AVG(字段名) 得出一个表格栏平均值
'COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
'MAX(字段名) 取得一个表格栏最大的值
'MIN(字段名) 取得一个表格栏最小的值
'SUM(字段名) 把数据栏的值相加
' OleDbDataReader dr = db1.getReader("select top "+n+" * from news where 类别="+strCID+" and (id not in (select top "+n*(page-1)+" id from news where 类别="+strCID+" order by ID DESC)) order by ID DESC");
'''''''''' 使用TOP分页方法
dim gbcount,n,x,y,j,k
n=10 '每页显示留言数
x=10 '每页显示的页数
set rs = conn.execute("select COUNT(*) as gbcount From words")
gbcount=rs("gbcount")
rs.close
if gbcount/n = int(gbcount/n) then '计算出分页数
y=int(gbcount/n)
else
y=int(gbcount/n)+1
end if
if (page2)*x > y then '计算出每页显示的页数
k=y
else
k=(page2)*x
end if
if page=1 then '判断页数,从而从第几条记录开始读数据
j=""
else
j="where id not in (select top "&n*(page-1)&" id from words Order By id Desc)"
end if
' 在第J条记录之后取得前N条记录
'set rs = conn.execute("select top "&n&" id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words "&j&" Order By id Desc") '打开记录的另一种方式,这种方式效率高,但没有打开记录集,一些功能受限
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="select top "&n&" * From words "&j&" Order By id Desc"
Rs.Open Sql,Conn,1,1 '打开记录集
'传统的分页代码,*********开始
'TotalRecord=Rs.RecordCount '记录总数
'Rs.PageSize = 8 '每页显示的记录数
'PageSize = Rs.PageSize
'PageCount=Rs.PageCount ' 总页数
'if rs.bof and rs.eof then '错误处理
'CM="当前没有留言"
'else
'If page="" Then
'Rs.AbsolutePage = 1
'Else
'Rs.AbsolutePage = page
'End If
'end if
''*************传统的分页代码*****结
%>
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20" align="right" class="unnamed1"> 有<%=gbcount %>条留言 共<%=y %>页 分页
<% if page2>1 then %> <a href="index.asp?page=<%=((page2-1)*x)-(x-1) %>&k=<%=page2-1%>">前<%=x%>页</a> <% end if %> <% For m =((page2)*x)-(x-1) To k %>
[<a href="index.asp?page=<%=m%>&k=<%=page2%>"><%=m%></a>]
<%
Next
%> <% if page2*x < y then %> <a href="index.asp?page=<%=((page2+1)*x)-(x-1)%>&k=<%=page2+1%>">后<%=x%>页</a> <% end if %> </td>
</tr>
<% if len(webtitle)>2 then %>
<tr>
<td height="20" align="right" class="unnamed1"> <marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>
<%=webtitle %> </marquee></td>
</tr>
<% end if %>
</table>
<span class="texthei">
<% if rs.bof and rs.eof then Response.Write "当前没有留言记录" %>
</span>
<%
dim lou,words,reply,email,qq,web,come
if Request.QueryString("page")<2 then
lou=gbcount
else
lou=gbcount-((Request.QueryString("page")-1)*n)
end if
do while not rs.eof
reply=""
words=""
email=""
qq=""
web=""
come=""
if rs("email")="" then
email=rs("name") & " 没有留下电子邮件"
else
email=rs("name") & " 的电子邮件是: "&rs("email")
end if
if rs("web")="" or rs("web")="http://" then
web=rs("name") & " 暂时没有主页"
else
web=rs("name") & " 的主页是: "&rs("web")
end if
if rs("qq")="" or len(rs("qq"))<4 then
qq=rs("name") & " 没有留下QQ号"
else
qq=rs("name") & " 的QQ号是: "&rs("qq")
end if
words=rs("words")
if rs("reply")<>"" then reply=rs("reply")
%>
<table width="450" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#FFFFFF" style="border-collapse:collapse">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -