用ASP技术实现网上作文的自动化管理 第2页
具体实现方式在以下程序代码中介绍。
<%@language="vbscript"%>
<!--下行所包含的文件用来实现文字显示时，字符超出部份用“…”代替，以使界面美观、充实。-->
<!-- #include file="AboutFunctions.inc" -->
<html>
<head>
<title>欢迎来到文学天地!</title>
<style type="text/css" rel=stylesheet>
A:link {color:blue;text-decoration:none;}
A:hover {color:red;text-decoration:none;}
A:visited}
</style>
</head>
<body>
<table border="0" width="100%" style="font:9pt">
<tr>
<td width="18%" valign="top">
<table border="0" width="100%" style="font:9pt">
<!--下行建立一个进入网上投稿页面的超链接-->
<tr><td width="100%"><a href=../../../"#" target="_self" >"OpenWin()">网上投稿</a></td></tr>
<!--以下是作文查询表单-->
<tr><td width="100%" align="center" bgcolor="#FF9900"><font size="2"><b>[作文查询]</b></font></td></tr>
<tr><td width="100%" bgcolor="#CCCCCC">
<form method="POST" action="search.ASP" style="font:9pt" target="_blank">
<!--上句指明查询窗体将以POST方法，将数据传递给search.ASP进行查询-->
<table border="0" width="100%" style="font:9pt">
<tr>
<td width="82%">题目<input type="text" >"bt" size="8"></td>
<td width="18%"><input type="checkbox" >"KK1" value="1"></td>
</tr>
<tr>
<td width="82%">作者<input type="text" >"zz" size="8"></td>
<td width="18%"><input type="checkbox" >"KK2" value="2"></td>
</tr>
<tr>
<td width="82%">年级<select size="1" >"lj">
<option selected value="1">一年级</option>
<option value="2">二年级</option>
<option value="3">三年级</option>
<option value="4">四年级</option>
<option value="5">五年级</option>
<option value="6">优年级</option>
</select></td>
<td width="18%"><input type="checkbox" >"KK3" value="4"></td>
</tr>
<tr>
<td width="82%">类别<select size="1" >"type">
<option selected value="写人">写人</option>
<option value="记事">记事</option>
<option value="状物">状物</option>
<option value="说明文">说明文</option>
<option value="议论文">议论文</option>
<option value="诗歌">诗歌</option>
<option value="散文">散文</option>
</select></td>
<td width="18%"><input type="checkbox" >"KK4" value="8"></td>
</tr>
</table>
<br>
<input type="hidden" value="true" >"pd">
<input type="submit" value="提交" >"B1">
<input type="reset" value="重写" >"B2">
</form>
</td>
</tr>
<tr>
<script language="JavaScript">
function OpenWin()
{
window.open('articleupload.asp','','scrollbars=no,width=250,height=400');
}
</script>
</tr>
</table>
</td>
<!-- 提交作文信息区 -->
<td width="2%" valign="top"><img src=../../../"../images/dot.gif" width="1" height="350"></td>
<td width="80%" valign="top">
<table border="0" width="100%" style="font:9pt">
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%">
<!-- ****************************************************************-->
<%
dim ymh,sql,jls,zys,tmp,i
'ymh 页面号：对记录进行分页后的每一页的页码号
'sql 查询语句变量：用于存储查询语句的临时变量
'jls 记录数：数据库中的作文数量
'zyx 总页数
'tmp 临时变量
ymh=Request.QueryString("page")
if ymh="" then
ymh=1
else
ymh=clng(ymh)
end if
set con=server.CreateObject("ADODB.Connection")
set rec=server.CreateObject("ADODB.Recordset")
con.Open "user","user","user"
sql="select * from zwtd_info order by 发表时间 desc"
rec.ActiveConnection=con
rec.Source=sql
rec.CursorType=3
rec.LockType=2
rec.Open
rec.PageSize=15 '一页显示记录条数
jls=rec.recordcount
zys=rec.pagecount
Response.Write("<table border='0' width='100%' style='font:9pt'>")
response.write("<tr><td width='100%'>共有" & jls & "篇文章 ")
for i=1 to zys
if i=ymh then
Response.Write("第" & i & "页 ")
else
Response.Write("第<a href=index.asp?page=" & i & ">" & i &"</a>页 ")
上一页 [1] [2] [3] [4] [5] [6] 下一页
用ASP技术实现网上作文的自动化管理 第2页下载如图片无法显示或论文不完整，请联系qq752018766
