📄 index.asp

📁 一个简单的留言板
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<%
'取出数据库记录并分页
dim rs
set rs=server.createobject("adodb.recordset")
    rs.open "select * from txt order by t desc",conn,1,1
dim page,num,self
page=cLng(request("page"))
if rs.eof and rs.bof then
response.write "还没有记录！"
else
num=request("num")
if num="" then num=8
rs.pagesize=num
     if page="" then page=1
	 if page>rs.pagecount then page=rs.pagecount
	 if page<1 then page=1
rs.absolutepage=page
self=request.servervariables("path_info")'本页的内容
%>
<html>
<head>
<link rel=stylesheet href=top.css>
<title>arjun的留言板</title>
<style>
    select{color:#000099;height:9px;background-color:#aaaaff;border-color:#000099}
	input,button{font-size:12px;border-width:1}
</style>
<script>
//跳转到回复页面
function jp(s)
{
var w=window.open(s,"","width=300,height=300,top=100,left=250")
}
//转换文档格式
function codehtml(s)
{
re=/\n/gi;
s=s.replace(re,"<br>");
re=/\s/gi;
s=s.replace(re,"&nbsp;");
return s
}
</script>
</head>
<body style="color:#000099;font-size:9pt" >
<!-- #include file="head.asp" -->
<table width=745px  align=center border="0"   cellpadding="0" bgcolor=#7777aa cellspacing="1px">
  <tr><td colspan=2 valign=middle style="font-size:12pt;height:50px;background-color:#7777aa;color:#ffffff">
<input type=hidden name="st" value="on" >
第<input type="hidden" name="num" value="<%=num%>">
<select name="a" onchange="self.location.href='index.asp?'+'page='+this.value+'&'+'num='+num.value">
<%
dim i
for i=1 to rs.pagecount
%>
<option value="<%=i%>"><%=i%></option>
<%
next
%>
</select>
页 
<button onclick="self.location.href='index.asp?'+'page='+a.value+'&'+'num='+num.value">确定
</button>
&nbsp;&nbsp;&nbsp;&nbsp;
<a href="index.asp?page=<%=page-1%>" style="color:#ffffff">上一页</a>&nbsp;&nbsp;
<a href="index.asp?page=<%=page+1%>" style="color:#ffffff">下一页</a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<button onclick="window.open('uptxt.htm','','width=300,height=400,top=100,left=220');st.value='off'" >我要留言</button>&nbsp;&nbsp;<button onclick=window.open("admin.htm","","width=300px,height=300px,top=100px,left=250px")>管理登陆</button>
</td></tr>
<%
'颜色处理，奇偶行的颜色是不同的
dim count,color
for count=1 to  num
  if rs.eof then 
    exit for
  end if
if count mod 2 = 0 then 
    color="#eeffee" 
else
    color="#ddffdd"
end if
%>
<tr bgcolor=<%=color%>>
    <td align=left valign=top style="color:#336600;background-color:#eeeeff;font-size:9pt" width=25%>
      <div align=center><img src="head/<%=rs("head")%>"></img></div>
      <div align=left> 
	<br>
	昵称：<%=rs("sendfrom")%><BR>
        QQ：<%=rs("qq")%><br>
        邮箱：<%=rs("mail")%><BR>
		来自:<%=rs("from")%><br>
      </div>
    </td>
    <td valign=top width=75% style="color:#336600;font-size:9pt;"> 
<!--------把帖子的内容存入文本框中，以备客服端调用---------->
    <textarea id='txt<%=count%>' style='display:none'><%=rs("txt")%></textarea>
    <script>
       var tt=txt<%=count%>.value
       if(tt.indexOf("\\^")==-1)//判断一个帖子中有没有本帖的回复
      {//如果没有的话，就输出整个帖子的内容
       document.write("<div style=\"margin:10 10 10 10;background-color:#eeeeff;border-style:solid;border-color:#aaaaff;border-width:1px;padding:10 10 10 10\">"+codehtml(tt)+"</div>")
      }
       else
         {//如果有的话，再找到分隔符，处理成数组后再输出
tt=tt.split("\\^")
for(z=0;z<tt.length;z++)
{
if(z==0)
{//分隔内第一项为原发帖人的内容，应该单独处理
       document.write("<div style=\"margin:10 10 10 10;background-color:#eeeeff;border-style:solid;border-color:#aaaaff;border-width:1px;padding:10 10 10 10\">"+codehtml(tt[0])+"</div>")
}
else
{//其余的回复内容以\~分隔,处理成数组后输出
aa=tt[z]
aa=aa.split("\\~")
       document.write("<div style=\"margin:10 10 10 10;background-color:#eeeeff;border-style:solid;border-color:#aaaaff;border-width:1px;padding:10 10 10 10\">"+"回复人："+aa[0]+"&nbsp;&nbsp;&nbsp;回复时间："+aa[2]+"<BR><br>"+codehtml(aa[1])+"</div>")
}
}
}
    </script>
    <div align=right>
<%
dim fso,fileread,d
set fso=server.createobject("scripting.filesystemobject")
set fileread=fso.opentextfile(server.mappath("adminpass.asp"),1)
d=fileread.readall  '读出文件的信息存储d里
d=split(d,"^")
if session("user")=d(0) then
%>
<button onclick=cmd.location.replace("delete.asp?id=<%=rs("id")%>")>删除</button>
<%
end if%>
<button onclick=window.open('uptxt.htm','','width=300,height=400,top=100,left=220')>加帖</button><button onclick=jp("fu1.asp?id=<%=rs("id")%>")>回复</button><br>留言时间：<%=rs("t")%></div>
    </td>
</tr>
<tr><td colspan=2 style="height:5px;background-color:#CCCC99"></td></tr>
<%
rs.movenext
next
end if
rs.close:set rs=nothing: conn.close: set conn=nothing
%>
</table>
<iframe src="" name="cmd" style="display:none"></iframe>
<!-- #include file=copyright.asp -->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -