bbs.asp
来自「asp的新闻网站」· ASP 代码 · 共 244 行
ASP
244 行
<%
'*********************************************************************************
'模块名称：网友评论
'开发人：潘树文
'时间：2001年2月8日
'*********************************************************************************
%>
<html>
<!--#include file="odbc.asp"-->
<!--#include file="checkserver.asp"-->
<!--#include file="showbody.asp"-->
<!--#include file="killstr.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<%set rs=server.CreateObject("adodb.recordset")
if request("submit")<>"" then
'监测刷屏
sql=" select * from news2_judge where clientip='"&Request.ServerVariables ("REMOTE_ADDR")&"' and judgetitle='"&trim(request("judgetitle"))&"' "
sql=sql&" and author='"&trim(request("author"))&"'"
rs.open sql,conn,3,1
if rs.eof then
rs.close
sql=" select * from news2_judge order by judgeid desc"
rs.open sql,conn,3,3
if rs.eof then
tempno=1
else
tempno=clng(rs("judgeId"))+1
end if
this1Id=right("00000000000000000000"&cstr(tempno),10)
rs.addnew
rs("clicknum")=0
rs("judgeid")=this1Id
rs("clientip")=Request.ServerVariables ("REMOTE_ADDR")
rs("regtime")=now
rs("infoid")=trim(request("infoid"))
rs("author")=left(rtrim(killStr(request("author"))),15)
rs("email")=left(killstr(rtrim(request("email"))),100)
rs("judgetitle")=left(rtrim(killStr(request("judgetitle"))),100)
if request("flag")="" then
flag="0"
else
flag="1"
end if
rs("flag")=flag
rs("contents")=left(rtrim(killstr(request("contents"))),3000)
rs.update
rs.close
'收集email
sql=" select * from news2_email order by emailid desc"
rs.open sql,conn,3,3
if rs.eof then
tempno=1
else
tempno=rs("emailId")+1
end if
rs.addnew
rs("emailid")=tempno
rs("email")=left(killstr(rtrim(request("email"))),100)
rs.update
rs.close
%>
<script language=javascript>
alert("输入成功！");
//location.href =history.back();
</script>
<%end if
end if%>
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check(form1){
if (trim(form1.judgetitle.value)=='')
{alert('标题不允许为空!');
form1.judgetitle.focus();
form1.judgetitle.select();
return (false);
}
if ((form1.judgetitle.value.indexOf("<") !=-1) || (form1.judgetitle.value.indexOf(">") !=-1)||(form1.judgetitle.value.indexOf("'") !=-1)||(form1.judgetitle.value.indexOf("\"") !=-1))
{alert("标题中不允许含有标注！");
form1.judgetitle.focus ();
form1.judgetitle.select ();
return (false);
}
if (trim(form1.judgetitle.value).length>100)
{alert('标题超长（100字以内）!');
form1.judgetitle.focus();
form1.judgetitle.select();
return (false);
}
if (trim(form1.author.value)=='')
{alert('作者不允许为空!');
form1.author.focus();
form1.author.select();
return (false);
}
if ((form1.author.value.indexOf("<") !=-1) || (form1.author.value.indexOf(">") !=-1)||(form1.author.value.indexOf("'") !=-1)||(form1.author.value.indexOf("\"") !=-1))
{alert("作者名中不允许含有标注！");
form1.author.focus ();
form1.author.select ();
return (false);
}
if (trim(form1.author.value).length>15)
{alert('作者超长（15字以内）!');
form1.author.focus();
form1.author.select();
return (false);
}
if (trim(form1.email.value)=='')
{alert('email不允许为空!');
form1.email.focus();
form1.email.select();
return (false);
}
if (trim(form1.email.value).length>100)
{alert('email超长（100字以内）!');
form1.email.focus();
form1.email.select();
return (false);
}
if (trim(form1.contents.value).length>3000)
{alert('超长（3000字以内）!');
form1.contents.focus();
form1.contents.select();
return (false);
}
if ((form1.email.value.indexOf("@") ==-1))
{alert("email格式不正确！");
form1.email.focus ();
form1.email.select ();
return (false);
}
if ((form1.email.value.indexOf("<") !=-1) || (form1.email.value.indexOf(">") !=-1)||(form1.email.value.indexOf("'") !=-1)||(form1.email.value.indexOf("\"") !=-1))
{alert("email中不允许含有标注！");
form1.email.focus ();
form1.email.select ();
return (false);
}
}
</script>
<title>千夜网->新闻->网友评论</title>
</head>
<%set rs=server.CreateObject ("adodb.recordset")%>
<body topmargin="3" leftmargin="3">
<div align="center">
<!--#include file="../include/secondhead.asp"-->
<%set rs=server.CreateObject ("adodb.recordset")%>
<%
if request("mysql") ="" then
sql="select * from news2_judge where infoid='"&trim(request("infoid"))&"' order by judgeid desc"
else
sql=request("mysql")
end if
rs.Open sql,conn,3,1
%><!--#include file="../include/rollpage.asp"-->
<center>
<table border="0" border=1 width="770" cellspacing="2" cellpadding="2">
<% if not rs.EOF then
rs.PageSize = 5
rs.AbsolutePage = getPageNo(rs)
%>
<TBODY bgColor="#F0F0FF">
<tr>
<td width="15%" align="center"><font color="#800040"><b>评 论 主 题</b></font></td>
<td width="5%" align="center"><font color="#800040"><b>作 者</b></font></td>
<td width="10%" align="center"><font color="#800040"><b>点 击 数</b></font></td>
<td width="20%" align="center"><font color="#800040"><b>更 新 时 间</b></font></td>
<!--<td width="50%" align="center"><font color="#800040"><b>评 论 内 容</b></font></td>-->
</tr>
<%for i=1 to rs.PageSize
If rs.EOF Then Exit For %>
<tr>
<td width="55%" valign="top"><font color="#8080C0"><a href="lookjudge.asp?judgeid=<%=rs("judgeid")%>"><%=rs("judgetitle")%></a></font></td>
<td width="10%" valign="top"><font color="#8080C0"><%=rs("author")%></font></td>
<td width="10%" valign="top"> <font color="#8080C0"><%=rs("clicknum")%></font></td>
<td width="25%" valign="top"> <font color="#8080C0"><%=rs("regtime")%></font></td>
<!--<td width="50%" valign="top"><font color="#8080C0"><%showbody (rs("contents"))%></font></td>-->
</tr>
<%rs.MoveNext
If rs.EOF Then Exit For
next
end if%>
</tbody>
<form method=POST action=<% =request.servervariables("path_info")%> >
<tr>
<td width="100%" colspan="5" align=right valign="top"><%call listPage(rs)%></td>
</tr>
<input type=hidden value=<%=request("infoid")%> name=infoid>
<input type=hidden value=<%=request("flag")%> name=flag>
</form>
<%rs.Close %>
</table></center>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="5%" valign="top" bgcolor="#8080C0"></td>
<td width="90%" valign="top" bgcolor="#FDFDFF" background=../IMAGES/Bg-015.gif><form method=POST action=<% =request.servervariables("path_info")%> name=add onsubmit="return check(this);" >
<table border="0" width="100%" cellspacing="2" cellpadding="2">
<tr>
<td width="30%" align=right>您是来自：</td>
<td width="70%"><%=Request.ServerVariables ("REMOTE_ADDR")%> 的用户</td>
</tr>
<tr>
<td width="30%" align=right>评论主题</td>
<td width="70%"><input type=text name=judgetitle maxlength=100 size=40 style="font-size: 9pt"></td>
</tr>
<tr>
<td width="30%" align=right>作者</td>
<td width="70%"><input type=text name=author maxlength=15 size=15 style="font-size: 9pt"></td>
</tr>
<tr>
<td width="30%" align=right>E-MAIL</td>
<td width="70%"><input type=text name=email maxlength=100 size=40 style="font-size: 9pt"></td>
</tr>
<tr>
<td width="30%" align=right>评论内容</td>
<td width="70%"><textarea name=contents cols=40 rows=10 style="font-size: 9pt"></textarea></td>
</tr>
<tr>
<td colspan=2 align=center>
<input type=submit value=' 确定 ' name=submit style="CURSOR: hand; FONT-SIZE: 9pt" >
<input type=reset value=' 重写 ' name=reset style="CURSOR: hand; FONT-SIZE: 9pt" ></td>
<input type=hidden value=<%=request("infoid")%> name=infoid >
<input type=hidden value=<%=request("flag")%> name=flag>
</tr>
</table>
</form></td>
<td width="5%" valign="top" bgcolor="#8080C0"></td>
</tr>
</table>
</div>
<hr width="90%" size="1" color="#D52B73">
<!--#include file="bottom.txt"-->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?