📄 mfm1992
字号:
<html>
<head>
<title>编程资料下载</title>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta NAME="Author" CONTENT="WebGenuis">
<link REL="stylesheet" HREF="mainstyle1.css">
<style>
<!--
A:link {text-decoration: none; color: #7516E9; font-family: 宋体}
A:visited {text-decoration: none; color: #7516E9; font-family: 宋体}
A:active {text-decoration: none; font-family: 宋体}
A:hover {text-decoration: underline; color: #800000}
body,table {font-size: 9pt; font-family: 宋体}
.H1 {font-size: 9pt ; line-height:11pt; align=center}
.ourfont {font-size: 9pt ; line-height:9pt; }
.ourfont1 {font-size: 9pt ; line-height:9pt; }
-->
</style>
<%@ LANGUAGE = VBScript %>
<!-- #Include file="ADOVBS.INC" -->
</head>
<body topmargin="50">
<div align="center"><div align="center"><center>
<%
startrow = trim(request("startrow"))
lbstr = trim(request("lb"))
pagecount=Application("intPageCount")
set AdoInvite = server.createObject("ADODB.Connection")
set RsInvite = server.CreateObject("ADODB.RecordSet")
RsInvite.CursorType = adOpenKeyset
RsInvite.LockType = adLockOptimistic
AdoInvite.open Application("strConnect")
strInviteSQL = " SELECT c_iid,c_clb,c_clj,c_cjj,c_czz,c_idx,c_icis,c_idf,c_ixx,c_cfbsj,c_czrmail FROM zlk WHERE c_clb ='"&lbstr&"' order by c_iid asc"
RsInvite.open strInviteSQL, AdoInvite
%>
<table border="0" cellspacing="0" width="95%">
<tr bgcolor="#CCFFFF">
<td align="left" nowrap><a href="http://lcc.126.com/" target="_top">Powerbuilder程序员俱乐部</a>>><a
href="zlxz.asp?startrow=1&lb=pb源程序" target="_top"><%=lbstr%></a></td>
<td align="right" nowrap><a href=<%="post.asp?lb="&lbstr%> target="_top">发布资料</a></td>
</tr>
</table>
</center></div>
<dd align="center"><br>
<table border="0" cellspacing="0" width="95%">
<tr>
<td><form name="frmguest" method="post" action="netschool.php3?enter=1">
</form>
</td>
<td align="middle" valign="center"><%="共计文章"&RsInvite.recordcount%>篇，分页: <%=int(startrow/pagecount) +1&"/"&int((RsInvite.recordcount-1)/pagecount)+1%>页 到第 <input maxLength="4"
name="pg" size="1" class="ourfont" align="left" value="1"> 页 <!--webbot
bot="HTMLMarkup" startspan --><INPUT name="cls" type="hidden" value><!--webbot bot="HTMLMarkup" endspan --> <input
name="cmdGO" type="submit" value="G O" class="ourfont"> </td>
</tr>
</table>
<table border="0" bgcolor="#000000" cellspacing="1" cellpadding="2" width="95%">
<tr>
<td bgcolor="#6298F2" align="center" width="5%" nowrap><font color="#FFFFFF">编号</font></td>
<td bgcolor="#6298F2" align="center" width="60%" nowrap><font color="#FFFFFF">资 料 名 称</font></td>
<td bgcolor="#6298F2" align="center" width="8%" nowrap><font color="#FFFFFF">阅读次数</font></td>
<td bgcolor="#6298F2" align="center" width="8%" nowrap><font color="#FFFFFF">作者</font></td>
<td bgcolor="#6298F2" align="center" width="11%" nowrap><font color="#FFFFFF">大小</font></td>
<td bgcolor="#6298F2" align="center" width="8%" nowrap><font color="#FFFFFF">发布时间</font></td>
</tr>
<%
if Not RsInvite.EOF then
%>
<%
j = 1
for i = 1 to startrow - 1
RsInvite.MoveNext
j = j + 1
next
intEnd = 0
for i = 1 to Application("intPageCount")
if (Not RsInvite.EOF) And (intEnd = 0) then
%>
<tr>
<td bgcolor="#DFEDFD" align="left" width="5%" nowrap><%=RsInvite(0).value%></td>
<td bgcolor="#DFEDFD" align="center" width="60%" nowrap>
<a href=<%=RsInvite(2)%>><%=RsInvite(3)%></a></td>
<td bgcolor="#DFEDFD" align="center" width="8%" nowrap>
<%=RsInvite(6).value%></td>
<td bgcolor="#DFEDFD" align="center" width="8%" nowrap><a href=<%="mailto:"&RsInvite(10).value%>><%=RsInvite(4)%></a></td>
<td bgcolor="#DFEDFD" align="center" width="11%" nowrap><%=RsInvite(5)&"KB"%></td>
<td bgcolor="#DFEDFD" align="center" width="8%" nowrap><%=RsInvite(9)%></td>
</tr>
<% j = j + 1
RsInvite.MoveNext
if RsInvite.EOF then
intEnd = 1
end if
end if
next
%>
</table>
<p><br>
</p>
<table border="0" cellspacing="0" width="90%">
<tr>
<%
end if
%>
<td align="middle" valign="center">分页:<%=int(startrow/pagecount) +1&"/"&int((RsInvite.recordcount-1)/pagecount)+1%>页
<%
if startrow>1 then
%>
【<a href="zlxz.asp?startrow=<%=startrow - pagecount%>&lb=<%=lbstr%>&"">上一页</a>】
<%
else
%>
【上一页 】
<% end if
%>
<%
if (Application("intPageCount") < j) And (intEnd = 0) then
%>
【<a href="zlxz.asp?startrow=<%=startrow + pagecount%>&lb=<%=lbstr%>&"">下一页</a>】
<%
else
%>
【下一页】
<%
end if
%>
</td>
<%
RsInvite.close
AdoInvite.close
%>
<%
%>
</tr>
</table>
</dd>
</div>
<p align="center"><br>
易佳软件制作中心 版权所有 </p>
</body>
<html> ram Files\Microsoft Visual Studio\VC98\INCLUDE\malloc.h ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -