高校问答幼儿披风:ASP遇到问题,请高手帮助一下!
来源：百度文库 编辑：高校问答 时间：2024/04/29 19:07:31
兄弟,按照你的代码我修改的数据库调用,但是没有变化的!
我看QQ75549413
代码改完,网页设计好了,(我没你的数据库,所以无法调试)VB语法一定有错误,自己调一调.
<%Response.Expires=0%>
<!--#include file="../Electron_Doc/public/public.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" or oabusyuserdept="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文档浏览</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<%
On Error Resume Next
Function ReturnStr(InputStr)
Dim OutputStr,StrLen,LenSum,VarI,MidStr
StrLen=strlength(InputStr)
LenSum=0
If StrLen>20 Then
For VarI=1 To Len(InputStr)
MidStr=Mid(InputStr,VarI,1)
If Asc(MidStr)<0 Then
LenSum=LenSum+2
Else
LenSum=LenSum+1
End If
If LenSum>=17 Then
OutputStr=OutputStr & "..."
Exit For
Else
OutputStr=OutputStr & MidStr
End If
Next
Else
OutputStr=InputStr
End If
ReturnStr=OutputStr
End Function
Flag=Request("Flag")
%>
<p class="doc_title" align="center"><a href="#" onclick="history.go(-1)"><img src="image/Return.jpg" border="0" align="absmiddle"></a> 文 档 浏 览 <br>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "dbq="&server.mappath("DocData")&";driver={microsoft access driver (*.mdb)};"
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From DocManageTypeTable,DocManagePopedomTable Where DocManageTypeTable.ID43=DocManagePopedomTable.DocTypeID "
Rs.Open Sql,Conn,1
If Rs.Eof And Rs.Bof Then
Call DispErrorInfo1("对不起，请先分配文档类别！")
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
Response.Write("</body></html>")
Response.End
End If
rs.pagesize = 20
maxpages = rs.pagecount
if maxpages=0 then
maxpages=1
end if
pagenumber=request("page")
if pagenumber="" then
page=1
elseif not isnumeric(pagenumber) then
page=1
else
page=clng(pagenumber)
end if
if page<=0 then
page=1
elseif page>maxpages then
page=maxpages
end if
if not rs.eof and not rs.bof then
rs.absolutepage = page
end if
total = rs.recordcount
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="630" height="50">
<tr>
<td><%
if maxpages>1 then
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page=1"">首 页</a> ")
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page="&page-1&chr(34)&">上一页</a> ")
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page="&page+1&chr(34)&">下一页</a> ")
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page="&maxpages&chr(34)&">尾 页</a> ")
end if
%>
共<font color="red"><%=total%></font>条记录 页码总数：<font color="#FF0000"><%=page%></font>/<font color="#FF0000"><%=maxpages%></font> 第<input type="text" name="T1" size="20" style="width: 26; height: 22" class="doc_txt" onkeypress="vbscript:checkkey()">页<input type=image src="anniupic/go.jpg" style="cursor:hand" align="absmiddle" value="Go" name="B1" onclick="javascript:location.href='Doc_Type_List.asp?Flag=<%=Flag%>&DocType=<%=DocType%>&page='+T1.value"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" bordercolor="#00FFFF" cellpadding="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#efefef" height="25" align="center">标题</td>
<td bgcolor="#efefef" height="25" align="center">标题</td>
</tr>
<%
I=1
ReturnFlag=False
Do While Not Rs.Eof
%>
<tr height="25" bgcolor="#D9F2FF" >
<td align="center" width="200" >
<a title="<%=keepformat5(Trim(Rs("DocType")))%>" href="Doc_Type_List.asp?DocType=<%=Trim(Rs("DocType"))%>&Flag=<%=Flag%>"><%=Trim(Rs("DocType"))%></a>
</td>
<td align="center" >
<a title="<%=keepformat5(Trim(Rs("DocType")))%>" href="Doc_Type_List.asp?DocType=<%=Trim(Rs("DocType"))%>&Flag=<%=Flag%>"><%=Trim(Rs("ID43"))%></a>
</td>
</tr>
<%
Rs.MoveNext
Loop
%>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</table>
</center>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="630" height="50">
<tr>
<td align="right">
<%
if maxpages>1 then
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page=1"">首 页</a> ")
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page="&page-1&chr(34)&">上一页</a> ")
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page="&page+1&chr(34)&">下一页</a> ")
response.write("<a href=""Doc_Type_List.asp?Flag="&Flag&"&DocType="&DocType&"&page="&maxpages&chr(34)&">尾 页</a> ")
end if
%>
共<font color="red"><%=total%></font>条记录 页码总数：<font color="#FF0000"><%=page%></font>/<font color="#FF0000"><%=maxpages%></font> 第<input type="text" name="T2" size="20" style="width: 26; height: 22" class="doc_txt" onkeypress="vbscript:checkkey()">页<input type=image src="anniupic/go.jpg" style="cursor:hand" align="absmiddle" value="Go" name="B1" onclick="javascript:location.href='Doc_Type_List.asp?Flag=<%=Flag%>&DocType=<%=DocType%>&page='+T2.value"></td>
</tr>
</table>
</div>
</body>
</html>