DW下可以看到，在网页中无法运行，请指点

weixin_41874983 2018-03-26 10:52:04

<!DOCTYPE HTML>
<html>
<head>
<meta charset="utf-8"><meta name="viewport" content="width=device-width, initial-scale=1">
<body bgcolor="ddebf3" text="#000000" width=100% height=100%>
<p align="center"><font size="20"><b>部门人员未读文件</b></font></p>
</head>

<hr>

<tr>
<td align="right" >
<form class="form-horizontal" METHOD=POST ACTION="Telex_UnRead_wyb.asp">
<form method="POST" name="form1" action=search.asp>
<p>输入搜索内容:<input type="text" name="cxsj" size="20"><input type="submit" value="提交" name="B1" LANGUAGE="javascript" onClick="btn_ck_bh_Click()">
</p>
</form>
<div class="col-md-12 col-lg-12">
</td>
</tr>
<table width="449" class="table">
<thead>
<tr>
<th width="40" align="center" nowrap="nowrap" class="col-md-1 text-center"><h4><strong>序号</strong></h4></th>
<th width="56" align="center" nowrap="nowrap" class="col-md-4 text-center"><h4><strong>标题</strong></h4></th>
<th width="111" align="center" nowrap="nowrap" class="col-md-2 text-center"><h4><strong>发文时间</strong></h4></th>
<th width="70" align="center" nowrap="nowrap" class="col-md-2 text-center"><h4><strong>接收人</strong></h4></th>
<th width="84" align="center" nowrap="nowrap" class="col-md-1 text-center"><h4><strong>批示内容</strong></h4></th>
</tr>
</thead>

<%
'个人收文数据表
'表内字段有
'ID 序号
'TelFilRecTime 接收时间
'TelFilRecMember 接收人对应人员表表（MemBer）的MemID，可以用MenberName函数显示人名
'TelFilPosTime 送批时间
'TelFilPosMem 送批人
'TelFilPosGroup 送批部门对应部门表中（TelRecGroup）的TelRecGroID，可以用GroupName函数显示部门名称
'TelFilPosTime 送批时间
'TelFilSinMark 阅读记录，已读为1，未读为null
'TelFilReadCount 阅读次数
'RepID 批复表中的序号
'RepContent 批示内容
'ToGroup 批复给哪些部门
'TelFilID 文件序号
'TelFilTitle 文件标题
'TelFilLogo发文代字
'TelFilYear年份
'TelFilCategory类别，路局公文1, 网络电报2，中心文件3
set rs=server.createobject("ADODB.recordset") '连接数据库记录
sql = "select * from TelPerRec_View where TelFilRecMember=1180 and TelFilSinMark is null order by TelFilPosTime desc"'查询语句
rs.Open sql,conn,1,1 '只读打开%>

<%i=1 '添加一个序号
If not rs.eof Then '判断记录不为空
Do While Not rs.eof '开始循环直到数据完了%>

<tr><td align="center" nowrap="nowrap"><%=i%></td><td align="center" nowrap="nowrap"><%=rs("TelFilTitle")%></td><td align="center" nowrap="nowrap"><%=rs("TelFilPosTime")%></td><td align="center" nowrap="nowrap"><%=MenberName(rs("TelFilRecMember"))%></td><td align="center" nowrap="nowrap"><%=rs("RepContent")%></td></tr>
<%i=i+1 '序号+1
rs.movenext '移动数据库指针到下一条记录
Loop '循环语句结束
End if '判断记录为空结束
%>
</table>

<%
set rs=server.createobject("<%i=i+1 '序号+1
rs.movenext '移动数据库指针到下一条记录
Loop '循环语句结束
End if '判断记录为空结束
%"><%=i%>
exce="sql"
rs.open exce,conn,1,1
%>

<%
rs.PageSize=25
pagecount=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>

<%
if rs.bof and rs.eof then
response.write("NULL")
else
for i=1 to rs.PageSize
response.write rs("name")
response.write("<hr>")
rs.movenext
next
end if
%>
<p>
<%if page=1 and not page=pagecount then%>
首页|前一页
<a href="log1.asp?page=<%=page+1%>">后一页</a>|
<a href="log1.asp?page=<%=pagecount%>">末页</a>|
<%elseif page<>1 and not page=pagcount then%>
<a href="log1.asp?page=1">首页</a>|
<a href="log1.asp?page=<%=page-1%>">前一页</a>|
<a href="log1.asp?page=<%=page+1%>">后一页</a>|
<a href="log1.asp?page=<%=pagecount%>">末页</a>
<%elseif page=pagecount then%>
<a href="log1.asp?page=1">首页</a>|
<a href="log1.asp?page=<%=page-1%>">前一页</a>|
下一页|
末页
<%end if%>

<html>

...全文