📄 index.asp
字号:
<%@ CODEPAGE = "936" %>
<%
'下面这一行设置默认每页显示条数
thesize=6 '默认为10
pagesize=Request("pagesize")
keyword=request("keyword")
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
%>
<html>
<head>
<meta http-equiv="Copyright" content="e-style http://www.e-style.fjxdr.com">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content="域名注册 中文域名 虚拟主机 虚拟主机 虚拟主机 虚拟主机 域名 主页制作 虚拟主机 网页制作 中文域名 虚拟主机 虚拟主机 虚拟主机 域名注册 域名注册 域名 domain domain domain domain homepage homepage homepage homepage web hosting web hosting web hosting 网站设计 网页制作 网站推广 搜索引擎推广 网络营销 网络推广 网页设计 网站建设 虚拟主机 网络广告 搜狐 新浪 网易 搜狐搜索引擎 新浪搜索引擎 网易搜索引擎 分类广告 google 3721 sohu sina 163 netease google排名" name=keywords>
<META content=提供国际国内域名注册，包括中文域名的注册；虚拟主机，空间的租用，以及设计制作主页等服务 name=description>
<title>E-style 工作室——在线留言</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body leftmargin="0" topmargin="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="215" valign="top"> <!--#include file="../include/top.inc"-->
<!--需修改的部分 开始-->
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="140" align="center" valign="top"><table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><br>
<p> 欢迎光临E-style工作室，感谢您留言，感谢您对我们工作的支持！谢谢!</p></td>
</tr>
</table>
<p> </p></td>
<TD vAlign=top width=1
background="../images/contact/leftline.gif"></TD>
<td width="581"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td> <%if Request("msg")<> "" then%> <p style="text-indent: 25; margin: 0 20"><font color=red><%=Request("msg")%></font></p>
<%end if%> <p style="text-indent: 25; margin: 0 20"> </p>
<div align="center">
<center>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" id="AutoNumber4" style="border-collapse: collapse">
<form method=post action="add.asp?keyword=<%=keyword%>&page=<%=curpage%>&pagesize=<%=pagesize%>" id=form1 name=form1>
<tr bgcolor="#C9C9C9">
<td colspan="2" background="../images/bg3.gif"> <img src="images/gb-add.gif" align="absmiddle">
:::: 请 您 留 言 ::::</td>
</tr>
<tr>
<td width="42%" align="center">
<p style="margin-top: 3; margin-bottom: 3"> 姓名：
<input class="input" name="name" size="22">
</p>
<p style="margin-top: 3; margin-bottom: 3"> 主页：
<input class="input" name="url" size="22" value="http://">
</p>
<p style="margin-top: 3; margin-bottom: 3"> 主题：
<input class="input" name="title" size="22">
</p>
<p style="margin-top: 3; margin-bottom: 3"> Email:
<input class="input" name="mail" size="22">
</td>
<td width="58%" height="119"> <p align="center">
<textarea class="input" rows="6" name="content" cols="50"></textarea>
<br>
<input class="backc" type="submit" value="提 交" name="B1">
<input class="backc" type="reset" value="重 填" name="B1">
</td>
</tr>
</form>
</table>
</center>
</div></td>
</tr>
</table>
<%
if pagesize="0" or pagesize="" then pagesize=thesize
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../db/e-style.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
dim rs, sql
set rs = server.createobject("adodb.recordset")
dim curpage, strcate
if keyword <> "" then
keyword = replace(keyword,"'","") '过滤关键字
keyword = replace(keyword,"[","")
keyword = trim(keyword)
wherestr=" where name like '%" & trim(keyword) & "%' or content like '%" & trim(keyword) & "%' or title like '%" & trim(keyword) & "%'"
end if
sql = "SELECT * FROM guestbook " & wherestr & " ORDER BY id DESC"
rs.open sql, conn, 1, 1
if rs.bof and rs.eof then
rs.close
response.write "<br><center>还没有符合条件的留言呢！</center>"
else
dim i
rs.pagesize = pagesize
if rs.pagecount < curpage then
rs.absolutepage=rs.pagecount
curpage=rs.pagecount
else
rs.absolutepage = curpage
end if
for i = 1 to rs.pagesize
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td> <br> <div align="center">
<center>
<table width="95%" border="1" cellpadding="0" cellspacing="0" bordercolor="#666666" bgcolor="#eeeeee" id="AutoNumber4" style="word-break:break-all">
<tr>
<td width="72%" height="24" background="../images/bg3.gif" bgcolor="#C9C9C9"> <img src="images/gb-index2.gif" align="absmiddle"<%if Session.Contents("thegbmaster")="yes" then%> title="IP:<%=rs("ip")%>"<%end if%>">
<%=rs("name")%> <font color="#666666"> <%=formatdatetime(rs("addtime"),2) & " " & formatdatetime(rs("addtime"),4)%>
说</font> <%=rs("title")%></td>
<td width="28%" height="20" background="../images/bg3.gif" bgcolor="#C9C9C9">
<p align="right" style="margin-right: 10">
<%if Session.Contents("thegbmaster")="yes" then%>
<a title="删除" href="del.asp?id=<%=rs("id")%>&page=<%=page%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>"><img border="0" src="images/gb-del.gif" align="absmiddle"></a>
<a title="回复" href="reply.asp?id=<%=rs("id")%>&page=<%=page%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>"><img border="0" src="images/gb-reply.gif" align="absmiddle"></a>
<%
end if
if rs("mail")="" or isnull(rs("mail")) then
Response.Write " <img border='0' src=images/gb-mail.gif align='absmiddle'>"
else
Response.Write "<a href=mailto:" & rs("mail") & "><img border='0' alt='信箱 " & rs("mail") & "' src=images/gb-mail.gif align='absmiddle'></a>"
end if
Response.Write " "
if rs("url")="" or isnull(rs("url")) then
Response.Write "<img border='0' src=images/gb-url.gif align='absmiddle'>"
else
Response.Write "<a href=" & rs("url") & " target=_blank><img border='0' alt='主页 " & rs("url") & "' src=images/gb-url.gif align='absmiddle'></a>"
end if
%>
</td>
</tr>
<tr>
<td colspan="2" height="120" style="WORD-WRAP: break-word">
<p style="line-height: 140%; margin-left: 15; margin-right: 10; margin-top: 10; margin-bottom: 5" align=left>
<%
Response.Write changechr(cstr(rs("content")))
if rs("reply")<> "" then
%>
<p style="line-height: 140%; margin-left: 15; margin-right: 10; margin-top: 10; margin-bottom: 5" align=left><font color=Orange>■
回复：</font>
<font class="fonts"><%=changechr(rs("reply"))%></font>
<%end if%>
</p></td>
</tr>
</table>
</center>
</div></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td> <br> <div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="95%" id="AutoNumber6">
<tr>
<td height="50" colspan="2" bgcolor="#eeeeee">
<%for i=1 to rs.pagecount
if curpage <> i then%> <a class=a1 href="<%=Request.ServerVariables("SCRIPT_NAME")%>?page=<%=i%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>"><<%=i%>></a> <%else%> <font style="color:#000000"><<%=i%>></font> <%end if
next
if Session.Contents("thegbmaster")="yes" then%>
[<a href="logout.asp?page=<%=cstr(curpage)%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>">退出管理</a>]
<a href="../admin.asp">返回管理页面</a>
<%end if%>
</td>
</tr>
</table>
</center>
</div></td>
</tr>
</table>
<%
rs.close
end if
set rs=nothing
conn.Close
set conn=nothing
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<form method=post action="index.asp?page=<%=curpage%>&pagesize=<%=pagesize%>" id=form2 name=form2>
<tr>
<td> <br> <div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="95%" id="AutoNumber6">
<tr>
<td height="60" colspan="2" bgcolor="#eeeeee"> <img src="images/gb-search.gif" align=absmiddle>
留 言 搜 索：
<input type=text name='keyword' size=16 class=input>
<input type=submit value='搜索' class=backc id=submit1 name=submit1>
</td>
</tr>
</table>
</center>
</div></td>
</tr>
</form>
</table></td>
</tr>
</table>
<!--#include file="../include/down.inc"-->
</td>
</tr>
</table>
</body>
</html>
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -