|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧数据|数据库|收集|显现<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>显现本人的信息</title>
<scriptlanguage=javascript>
<!--
functionchecks(theform1){
if(theform1.word.value=="")
{
alert("请任意说几句。");
theform1.word.focus();
returnfalse;
}
returntrue;}
//-->
</script>
</head>
<body>
<br><br>
<%
username=session("username")
Setconn=server.createobject("adodb.connection")
Provider="Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath="DataSource="&Server.MapPath("webuser.mdb")
conn.OpenProvider&DBPath
setrs=server.createobject("adodb.recordset")
sql="selectid,fromname,toname,word,adddate,isreadfromtalkswheretoname="&username&"andisread=0orderbyadddate"
rs.opensql,conn,3,3
rs.pagesize=1
Page=CLng(Request("Page"))
IfPage<1ThenPage=1
IfPage>rs.PageCountThenPage=rs.PageCount
%>
<formmethod="post"name=formonSubmit="returnchecks(form)"action="SubmitMessage.asp">
<tableborder="1"cellspacing="1"style="border-collapse:collapse"bordercolor="#111111"width="550"id="AutoNumber1"align="center">
<tr>
<tdwidth="437"colspan="2"height="14"><b><fontsize="3">发送短动静</font></b></td>
</tr>
<tr>
<tdwidth="437"colspan="2"height="8">
<tableborder="0"width="540"id="AutoNumber2">
<%ifrs.eoforrs.bofthen%>
<tr>
<tdwidth="100%"><%response.write"今朝没有你的动静"%></td>
</tr>
<%else%>
<tr>
<tdwidth="100%"><%showrs,page%></td>
</tr>
<tr>
<tdwidth="100%">
<%
SubShow(rs,Page)
rs.AbsolutePage=Page
%>
<tableborder="0"cellspacing="0"width="534"cellpadding="0">
<%ForiPage=1Tors.PageSize%>
<tr>
<tdcolspan="2"><fontcolor=red><%=rs("fromname")%></font>于<%=rs("adddate")%>传呼于你</td>
</tr>
<tr>
&n</p>大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 |
|