⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 message.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Response.Expires = -100%>
<!--#include file="db_conn.asp"-->
<!--#include file="comm/my_request.asp"-->
<!--#include file="comm/pages.asp" -->
<!--#include file="comm/my_lib.asp" -->
<!--#include file="comm/co.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=<%="style/"&r(22)%>.css rel=stylesheet type=text/css>
<title>商品评论</title>
</head>

<body>

<table width="100%" style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" cellspacing="0" cellpadding="4" class="li_table">
	<tr>
		<td class="maincolor" height="20" align=center>商 品 评 论</td>
	</tr>
	<tr>
		<td>
		<table border="0" width="100%" id="table14" cellspacing="0" cellpadding="0">
		<%
		idd=my_request("id",1)
		sql="select * from product_leave where pid="&idd&" order by addtime desc"
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,1
		if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td><font color=#FF0000>目前还没有任何留言</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =5 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
ii=1
while not rs.eof and ii<=rs.pagesize
username=rs("username")
xingxing=rs("xingxing")
ip=rs("ip")
addtime=rs("addtime")
neirong=rs("neirong")
ip=left(ip,instrrev(ip,".")-1)
ip=left(ip,instrrev(ip,".")-1)
ip=ip&".*.*"
%>
							
								<tr>
									<td width="151">笔名:<%=username%></td>
									<td width="151">评价等级:
<%
for ai=1 to cint(xingxing)
response.write "<img border=0 src=images/art1.gif>"
next

%></td>
									<td width="56">IP:<img border=0 src=images/ip.gif title=IP已记录:<%=ip%>></td>
									<td width="246">留言时间:<%=addtime%></td>
								</tr>
								<tr>
									<td colspan="4" style="word-break:break-all">内容:<%=leach(neirong)%></td>
								</tr>
								<tr>
									<td colspan="4"><font color="#C0C0C0">
									-------------------------------------------------------------------------------------------</font></td>
								</tr>
<%
rs.movenext
ii=ii+1
wend
%>
							</table>
							</td>
						</tr>
						<tr>
							<td colspan="2">
							<%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
						</tr>
					</table>
</td>
	</tr>
	<tr>
		<td>		
		<table width="100%" cellspacing="0" cellpadding="0" style="padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" class="li_table">
			<form action="savemessage.asp" method=post><tr>
				<td height="20" width="982" colspan="2" class="maincolor">
				<p align="center" class=blank>发 表 评 论</td>
			</tr>
			<tr>
				<td width="10%" align="right" class=smallfont>&nbsp;笔名:</td>
				<td width="93%" class=smallfont>
				<input type="text" name="username" size="16" maxlength="20" value="<%=session("chk_name")%>"><input type=hidden name=id value=<%=idd%>>&nbsp;&nbsp; 
				级别:<input type="radio" value="1" name="xingxing"><img border=0 src=images/art1.gif>
				<input type="radio" value="2" name="xingxing"><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif>
				<input type="radio" value="3" name="xingxing" checked><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif>
				<input type="radio" value="4" name="xingxing"><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif>
				<input type="radio" value="5" name="xingxing"><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif><img border=0 src=images/art1.gif></td>
			</tr>
			<tr>
				<td width="7%" align="right" class=smallfont>&nbsp;内容:</td>
				<td width="93%"><textarea rows="3" name="neirong" cols="49"></textarea></td>
			</tr>
			<tr>
				<td width="982" colspan="2">
				<p align="center"><input type="submit" value="提交" name="B1">&nbsp;&nbsp;
				<input type="button" value="关闭" name="B2" onclick="javascript:window.close()"></td>
			</tr>
			<tr>
				<td width="982" colspan="2" height="25">
				<font color=#FF0000 style="font-size: 12px">&nbsp; 声明:网友发表的任何内容与本站均无直接或间接关系,请不要发表任何非法内容。</font></td>
			</tr></form>
			</table></td>
	</tr>
</table>

</body>

</html>

⌨️ 快捷键说明

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