liuyan1.asp
来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 388 行 · 第 1/2 页
ASP
388 行
<!--#include file="conn.asp"-->
<!--#include file="pass.asp"-->
<%
sql="select * from counst"
set rs=conn.execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><% =rs("W_name") %></title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0" bgcolor="#EEEEEE"><table width="779" border="0" align="center" cellpadding="0" cellspacing="0">
<!-- fwtable fwsrc="1 ??±′.png" fwbase="ok2.png" fwstyle="Dreamweaver" fwdocid = "1365122013" fwnested="0" -->
<tr>
<td><img src="images/spacer.gif" width="12" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="153" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="604" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="10" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="13"><img name="ok2_r1_c1" src="images/ok2_r1_c1.png" width="12" height="956" border="0" alt=""></td>
<td colspan="2"><img name="ok2_r1_c2" src="images/ok2_r1_c2.png" width="757" height="12" border="0" alt=""></td>
<td rowspan="13"><img name="ok2_r1_c4" src="images/ok2_r1_c4.png" width="10" height="956" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="12" border="0" alt=""></td>
</tr>
<tr>
<td colspan="2"><img name="ok2_r2_c2" src="images/ok2_r2_c2.png" width="757" height="94" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="94" border="0" alt=""></td>
</tr>
<tr>
<td colspan="2"><img src="images/ok2_r3_c2.png" width="757" height="38" border="0" usemap="#Map"></td>
<td><img src="images/spacer.gif" width="1" height="38" border="0" alt=""></td>
</tr>
<tr>
<td><img name="ok2_r4_c2" src="images/ok2_r4_c2.png" width="153" height="32" border="0" alt=""></td>
<td bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="1">
<tr>
<td width="4%"><img border="0" src="imag/002.gif">
</td>
<td width="96%"><MARQUEE onmouseover="if (document.all!=null){this.stop()}" onmouseout="if (document.all!=null){this.start()}"
scrollAmount=2 scrollDelay=5 color=#000000><% =rs("W_bulletin") %></MARQUEE></td>
</tr>
</table></td>
<td><img src="images/spacer.gif" width="1" height="32" border="0" alt=""></td>
</tr>
<tr>
<td><img name="ok2_r5_c2" src="images/ok2_r5_c2.png" width="153" height="51" border="0" alt=""></td>
<td rowspan="8" valign="top"> <!--#include file="UBB.asp"-->
<table border="0" width="100%" cellpadding="5">
<tr>
<td width="50%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%"><img border="0" src="imag/k-001.jpg"></td>
<td width="98%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="50%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" bgcolor="#626262">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%" bgcolor="#626262">
<p align="center"><b><font style="font-size: 14px" color="#FFFFFF">信息反馈</font></b></td>
<td width="34%" bgcolor="#626262"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
<td width="50%" bgcolor="#626262">
<p align="right"><img border="0" src="imag/k-008.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="1%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="98%">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="imag/topb.gif">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><a href="L_write.asp">签写留言</a></div></td>
</tr>
</table>
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="98%" bgColor=#96628A border=1>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from liuyan order by id desc"
rs.open sql,conn,1
rs.pagesize=3 '每页显示多少条
pagecount=rs.pagecount '总页数
if rs.bof and rs.eof then
response.write ""
else
page=clng(request.querystring("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page '跳到多少页
for i=1 to rs.pagesize
%>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD align=middle> <table width="98%" border="1" cellpadding="2" cellspacing="1" bordercolor="#97638B" bgcolor="#96628A">
<tr>
<td bordercolor="#96628A" bgcolor="#96628A"> <b><font class=end>No.
<% =rs("id") %>
主题：
<% =rs("title") %>
</font></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0">
<tr>
<td width="21%" valign="top"><TABLE width="100%" border=0>
<TR>
<TD align=middle>来自：
<% =rs("fbr") %>
</TD>
</TR>
<TR>
<TD align=middle>
<% if rs("xb")="1" then%>
<IMG title="<% =rs("fbr") %> 是 男孩" src="<% =rs("pic") %>" border=0>
<% elseif rs("xb")="2" then %>
<IMG title="<% =rs("fbr") %> 是 女孩" src="<% =rs("pic") %>" border=0>
<% end if %>
</TD>
</TR>
</TABLE></td>
<TD width=1 bgColor=#98648D></TD>
<td width="79%"><TABLE height="100%" width="100%" border=0>
<TR>
<TD width="59%" colSpan=2 vAlign=top> <TABLE class=tf cellSpacing=4 cellPadding=2 width="100%" border=0>
<TR>
<TD class=bw><IMG
src="imag\L01.gif"
border=0><br>
<% zhengwen = rs("nr")
zhengwen = replace(zhengwen,chr(13),"<br>")
zhengwen = replace(zhengwen,chr(32)," ")
response.write zhengwen
%>
</TD>
</TR>
</TABLE>
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="100%" bgColor=#99CC99 border=1>
<% if rs("huifu")<>"" then %>
<TR borderColor=#ededed bgColor=#ededed>
<TD class=bw> <font color="#999999"><IMG
src="imag/L02.gif" width="16" height="16" border=0><font color="#999999"></font><br>
管理员回复: <br>
<% hf = rs("huifu")
hf = replace(hf,chr(13),"<br>")
hf = replace(hf,chr(32)," ")
response.write hf
%>
</font></TD>
</TR>
<% else
response.Write""
end if %>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?