liuyanbenzi.asp
来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 190 行
ASP
190 行
<!--#include file="abc/As_conn.asp"-->
<!--#include file="abc/xx.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言本子——〖阿赛〗</title>
<style type="text/css">
<!--
body {
margin:0px; scrollbar-face-color: #B9E4B2;
scrollbar-highlight-color: #B9E4B2;
scrollbar-shadow-color: #1DA706;
scrollbar-3dlight-color: #1DA706;
scrollbar-arrow-color: #1DA706;
scrollbar-darkshadow-color:#B9E4B2;
background-image: url('img/bg22.gif');
background-position:
center 50%;
}
body, td, th {
font-size: 12px;
color: #3FB42B;
font-family: 宋体;
}
a {
font-family: 宋体;
font-size: 12px;
}
a:link {
text-decoration: none;
color: #3FB42B;
}
a:visited {
text-decoration: none;
color: #3FB42B;
}
a:hover {
text-decoration: none;
color: #B9E4B2;
}
a:active {
text-decoration: none;
color: #B9E4B2;
}
h1, h2, h3, h4, h5, h6 {
font-family: 宋体;
}
.an { background-color: #FFFFFF;
border: 1pt dashed #B9E4B2;
font-family: "宋体";
font-size: 12px;
font-weight: normal;
color: #58BE47;
}
-->
</style>
</head>
<body>
<table width="480" height="481" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td width="495" height="200" align="center" valign="top"><table width="98%" height="196" border="0" cellpadding="0" cellspacing="0">
<tr><td>
<table id="bj" width="486" border="0" cellspacing="0" cellpadding="0" height="200">
<tr><td>
<!--#include file="abc/f.asp"-->
</td></tr></table>
<!--#include file="abc/t.asp"-->
</td></tr></table></td></tr>
<tr><td height="240" valign="top"><table width="463" border="0" height="2%" align="center" cellpadding="0" cellspacing="0">
<tr><td height="15">
<p align="center"><!--#include file="abc/m.asp"--></td></tr>
<tr><td valign='top' height='203'><br> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" background="img/bg11.gif">
<tr><td>
<%
dim pag ,i,cc
cc=4
pag=request("pag")
if pag="" then pag=0
call ConnectionDatabase
if request("action")="addnew" then
if len(request("content"))>200 then
response.write("<div align=center><font color=red>留言字数大多了!</font></div><br>")
else
if not(request("name")="" or request("content")="") then
set Rs=GrateRs("select * from Asai_LYBZ",3)
Rs.addnew
Rs("name")=request("name")
Rs("content")=request("content")
Rs.update
response.redirect"LiuyanBenzi.asp?pag="&pag
else
response.write("<div align=center><font color=red>留言失败!</font></div><br>")
end if
end if
end if
set Rs=GrateRs("select * from Asai_LYBZ",1)
if not Rs.eof then Rs.movelast
for i = 1 to pag*cc
Rs.moveprevious
if Rs.eof then exit for
next
i=0
do while not Rs.bof
response.Write(" ◇ "&ReplStr(Rs("content")))
response.Write("<div align='right'>留言人:"&Rs("name")&" <br>"&Rs("date")&" </div>")
if trim(Rs("re"))="0" then
response.write("<br>")
else
response.Write("<font color=#88B880> [回复:"&Rs("re")&"]</font><br><br>")
end if
i=i+1
if i=cc then exit do
Rs.moveprevious
loop
%>
</td>
</tr>
</table>
<div align="right">
<table width="86%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right">
<%
response.write("<br>共"&int(Rs.recordcount/cc)+1&"页,第"&pag+1&"页 ")
response.write("<a href=LiuyanBenzi.asp?pag=0>第一页</a> ")
if not pag=0 then
response.write("<a href=LiuyanBenzi.asp?pag="&pag-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if not Rs.bof then
response.write("<a href=LiuyanBenzi.asp?pag="&pag+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write("<a href=LiuyanBenzi.asp?pag="&int(Rs.recordcount/cc)&">最后一页</a> ")
%>
</div></td>
</tr>
</table>
<font color="#FFFFFF"><strong><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#FF0000"><span><font color="#FFFFFF"><span><font color="#FF0000"><span><font color="#FF0000"><span><font color="#666666">
</font></span></font></span></font></span></font></span></font></font></font></font></strong></font>
<%
call DBConnEnd
%>
</div>
<p><br>
</p>
<form action="LiuyanBenzi.asp?action=addnew" method="post" name="form1">
<table width="92%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="15%"><div align="center">访客姓名:</div></td>
<td width="85%"><div align="left">
<input name="name" type="text" class="an" id="name" size="20"></div></td>
</tr>
<tr>
<td width="15%"><div align="center">留言内容:</div></td>
<td width="85%" rowspan="2"><div align="left">
<textarea name="content" cols="40" class="an" id="content" rows="7"></textarea>
<font color="#0000FF">
<input name="Submit" type="submit" class="an" value="提交">
</font></div></td>
</tr>
<tr>
<td width="15%"><div align="center"></div></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="18" align="center">
<script language=javascript src=abc/As_Count.Asp?AsaiTj=2></script><br><!--#include file="abc/zx.asp"-->
</td>
</tr>
<tr>
<td height="33" align="center" valign="top"><img src="images/X/dly.gif" width="495" height="50"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?