📄 show.asp
字号:
<html><head><title>178商机网--免费发布商业信息|因为专业所以最好</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0" ><div align=center>
<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<!--#include file="admin/char.asp"-->
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="80%" align="center" valign="top">
<table border="0" width="100%" cellspacing="0">
<tr>
<td align="center" valign="top">
<script language="JavaScript">
function b_isnull(str)
{
var index=0;
str_get='';
while(index<str.length)
{
if(str.charAt(index)!=' ')
str_get=str_get+str.charAt(index);
else
str_get=str_get+'';
index=index+1;
}
if(str_get=='')
return (true);
else
return (false);
}
function i_length(str)
{ //返回str长度---中文2位。
var ret=0;
for(var i=0;i<str.length;i++)
ret+=(str.charCodeAt(i)>255?2:1);
return(ret);
}
function email_isok(str)
{
reg = new RegExp("^([_a-z0-9]+([\._a-z0-9-]+)*)@([a-z0-9]{2,}(\.[a-z0-9-]{2,})*\.[a-z]{2,3})$") ;
if (!reg.test(str)) {
alert('email地址不合法！');
document.review.reviewemail.focus();
return (false);
}
return(true);
}
function form_isok()
{
if(b_isnull(document.review.reviewname.value))
{
alert('您的大名不能为空；');
document.review.reviewname.focus();
return (false);
}
if(i_length(document.review.reviewname.value)>20)
{
alert('您的大名不能超过20位；');
document.review.reviewname.focus();
return (false);
}
if(b_isnull(document.review.reviewcontent.value))
{
alert('评论内容不能为空；');
document.review.reviewcontent.focus();
return (false);
}
if(i_length(document.review.reviewcontent.value)>1000)
{
alert('评论内容不能超过1000字节；');
document.review.reviewcontent.focus();
return (false);
}
return (email_isok(document.review.reviewemail.value));
}
</script>
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from [site] where id="&request("id")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("<center><br><font color=blue>该站点不存在！ <a href=./><font color=red>返回首页</a><br><br>")
else%>
<table width=98% cellspacing=0 cellpadding=0>
<tr><td width= 100% height="35">
<table width=100% cellpadding=3 cellspacing=1 bgcolor=CCCCCC>
<tr align=center><td colspan="5" bgcolor="dddddd" background="img/lmbg1.gif" width="100%">
:::::::::::::::<b>
商 机 详 细 内 容 </b>::::::::::::::::</td></tr>
<tr bgcolor=FFFFFF>
<td width=170 rowspan=7 align=center><%if rs("indexpic")="" or rs("indexpic")="http://" then%><a href="<%=rs("siteurl")%>"target=_blank><img src=./img/nopic2.gif width=240 height=240 border=0></a><%else%><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><img src=<%=rs("indexpic")%> width=240 height=240 border=0></a><%end if%></td>
<tr bgcolor=FFFFFF>
<td width=70 align=center bgcolor=f8f8f8><span lang="zh-cn"><b>类 别</b></span></td>
<%set rs1 = server.CreateObject ("Adodb.recordset")
sql1 = "select bid,bname from [big] where bid="&rs("bid")
rs1.open sql1,conn,1,1
bname=rs1("bname")
rs1.close
if rs("sid")=0 then
sname="无"
else
sql1 = "select sid,sname from [small] where sid="&rs("sid")
rs1.open sql1,conn,1,1
sname=rs1("sname")
rs1.close
end if
%>
<td width=328 colspan="3"><%=bname%> >> <%=sname%></td>
</tr>
<td width=398 align=center bgcolor=f8f8f8 colspan="4" height="30"><a href="<%=rs("siteurl")%>"target=_blank>
<font color="#CC0000" size="3"><b><%=rs("sitename")%></b></font></a></td>
</tr>
<tr bgcolor=FFFFFF> <td align=center bgcolor=f8f8f8 width="70" rowspan="2"><b>联系方式</b></td>
<td width="186"><a href=mailto:<%=rs("siteemail")%>><%=rs("sitemaster")%></a></td>
<td width=72 align=center bgcolor=f8f8f8 rowspan="2">
<b>推荐等级</b></td><td width="137" rowspan="2"><img src=img/<%=rs("pstar")%>star.gif ></td></tr>
<tr bgcolor=FFFFFF>
<td width="186">
<font color="#FF0000"><%=rs("siteemail")%></font></td></tr>
<tr bgcolor=FFFFFF><td colspan=4 bgcolor=eeeeee height=5 width="408"></td></tr>
<tr bgcolor=FFFFFF><td align=center bgcolor=f8f8f8 colspan="4"><%=rs("sitecontent")%></td></tr>
<tr bgcolor=FFFFFF><td colspan=4 height=15 bgcolor=eeeeee width="408"></td></tr>
<tr bgcolor=FFFFFF>
<td width=170 align=center> </td>
<td width=70 align=center bgcolor=f8f8f8 rowspan="2">统 计 信 息</td>
<td colspan=3 width="328">点击：<font color="#FF0000"><%=rs("hits")%> </font>| 投票：<%=rs("vote")%>
| 查看：<%=rs("lhits")%> | 断链报告：<%=rs("stopnum")%></td>
</tr>
<tr bgcolor=FFFFFF>
<td align=center width="170"> </td>
<td colspan=3 class=c width="328">加入时间 <%=rs("addtime")%></td>
<tr bgcolor=FFFFFF><td colspan=5 align=center>
<p align="left" style="line-height: 150%">
<font color="#FF0000"><b>声明：</b></font>本网站发布的连锁、加盟、代理等商业信息或产品（包括公司名称、联系人及联络信息，产品的描述和说明，相关图片、视讯等）均由会员自行提供，会员依法应对其提供的任何信息承担全部责任。178商机网对信息的准确性、完整性、合法性或真实性均不承担任何责任。此外，178商机网对任何使用或提供本网站信息的商业活动及其风险不承担任何责任。</td></tr>
<tr bgcolor=FFFFFF><td colspan=5 align=center height="35">
<b><font color="#FF0000">
</font><a href="review.asp?id=<%=rs("id")%>"><font color="#FF0000">留言评论</font></a></b><font color="#FF0000">
</font>
<b><a href="vote.asp?id=<%=rs("id")%>"><font color="#FF0000">投 票</font></a></b><font color="#FF0000">
</font>
<b><a href="break.asp?id=<%=rs("id")%>"><font color="#FF0000">断链报告</font></a></b></td></tr>
</table>
<br>
<table width=100% cellpadding=3 cellspacing=1 bgcolor=CCCCCC><tr><td align=center background="img/lmbg1.gif" bgcolor="dddddd">
::::::::::::::::<b>
<span lang="zh-cn"><font color="#000080">对该商机留言评论</font> </span> </b>
::::::::::::::::</td></tr></table>
<br>
<%
rs.close
Const PAGESIZE=10
Const PARTSIZE=10
siteid=trim(request("id"))
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
sql="select * from [review] where siteid="&siteid&" order by id desc"
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
if RS.EOF then
Response.Write("<center><br><font color=red>目前还留言</font><br><br>")
else
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>
<table width="100%">
<tr bgcolor=f8f8f8><td width=20><img src=img/born1.gif></td><td><font color=336688>
朋友 <a href=mailto:<%=rs("email")%>><font color=336688><%=rs("name")%></font></a> 于 <%=rs("addtime")%>
留言如下：</font></td></tr>
<tr><td></td><td><ul><%=rs("content")%></td></tr>
<tr><td colspan=2 background="img/linebg.gif" height=7></td></tr></table>
<%RS.MoveNext()
next
end if%>
<%if pagecount > 0 then
response.write("<table width=""600"" align=center cellspacing=3 cellpadding=3 bgcolor=ffffff><tr><td align=right>")
response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b> 每页<b>" & pagesize & "</b> 共<b>" & recordcount & "</b>条评论 分页：")
Spage = page mod PARTSIZE
if page > PARTSIZE then
if Spage = 0 then Spage = PARTSIZE
Spage = page - Spage + 1
else
Spage = 1
end if
Epage = Spage + PARTSIZE - 1
if Epage > pagecount then Epage = pagecount
if page > PARTSIZE then
response.write("<a href=""show.asp?id=" & siteid & "&page=" & Spage - 1 & """>[<<]</a>")
end if
for i = Spage to Epage
if i = page then
response.write("[<font color=red><b>" & i & "</b></font>]")
else
response.write("[<a href=""show.asp?id=" & siteid & "&page=" & i & """>" & i & "</a>]")
end if
next
if Epage < pagecount then
response.write("<a href=""show.asp?id=" & siteid & "&page=" & Epage + 1 & """>[>>]</a>")
end if
if Spage <> 1 then response.write("[<a href=""show.asp?id=" & siteid & "&page=1"">首页</a>]")
if Epage <> pagecount then response.write("[<a href=""show.asp?cid=" & siteid & "&page=" & pagecount & """>尾页</a>]")
response.write("</td></tr></table><br>")
end if
rs.close
%>
<%sql = "select * from [site] where id="&request("id")
rs.open sql,conn,1,1
%>
</td></tr></table>
<%rs.close
end if
sql = "select * from [site] where id="&request("id")
rs.open sql,conn,3,3
if not RS.EOF then
RS("lhits").value = RS("lhits").value + 1
RS.Update()
end if
RS.Close()
%>
</td>
</tr>
</table>
</td>
<td align="center" width="20%" valign="top">
<table border="0" width="100%" cellspacing="0">
<tr>
<td align="center" valign="top"><!--#include file="left.asp"--> </td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="end.asp"-->
</div></body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -