📄 projectfpzj.asp
字号:
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/CssLink.css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="780" height="24" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="9" height="9"></td>
<td width="84"></td>
<td width="47"></td>
<td width="70"></td>
<td width="105"></td>
<td width="47"></td>
<td width="71"></td>
<td width="104"></td>
<td width="36"></td>
<td width="75"></td>
<td width="102"></td>
<td width="30"></td>
</tr>
<tr>
<td height="15"></td>
<td valign="top"><font color="#FF0000"><b>专家列表>></b></font></td>
<td></td>
<td valign="top">项目编码：</td>
<td valign="top"> </td>
<td></td>
<td valign="top">项目名称：</td>
<td valign="top"> </td>
<td></td>
<td valign="top">体系分类：</td>
<td valign="top"> </td>
<td></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" height="71">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="#0099FF" align="center" bgcolor="#006699">
<tr bordercolor="#0099FF">
<td width="5%" bgcolor="#6699CC" height="18">
<div align="center"><a href="#">
<input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
</a></div>
</td>
<td width="7%" align="center" bgcolor="#6699CC">
<div align="center">序号</div>
</td>
<td width="12%" bgcolor="#6699CC" align="center">
<div align="center">专家编码</div>
</td>
<td width="12%" bgcolor="#6699CC" align="center">
<div align="center">专家姓名</div>
</td>
<td width="15%" bgcolor="#6699CC" align="center">专家类别</td>
<td width="5%" bgcolor="#6699CC" align="center">性别</td>
<td width="12%" bgcolor="#6699CC" align="center">学位</td>
<td width="14%" bgcolor="#6699CC" align="center">现从事专业</td>
<td width="13%" bgcolor="#6699CC" align="center">职称</td>
<td width="5%" valign="middle" bgcolor="#6699CC" align="center">删除</td>
</tr>
'
<%
' if Request.QueryString("strsql")="" then Response.End
'if objres.RecordCount >pagesize*curpage then thispagerecords=pagesize else thispagerecords=objres.RecordCount-pagesize*(curpage-1)
'recordcode=10*(curpage-1)
'if objres.RecordCount >0 then
' objres.MoveFirst
' objres.Move((curpage-1)*10)
' else
'%>
<tr bgcolor="#FFFFFF">
<td colspan="10"> 对不起，没有符合要求的记录！ </td>
</tr>
'
<%
' Response.End
'end if
'for i=1 to thispagerecords
'recordcode=recordcode+1
'%>
<tr bgcolor="#FFFFFF">
<td width="5%" height="18">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("专家编码").Value %>/<% =objres.Fields("专家姓名").Value %>>
</div>
</td>
<td width="7%" align="center"> '
<% =recordcode%>
</td>
<td width="12%"> '
<% = objres.Fields("专家编码").Value %>
</td>
<td width="12%"> '
<% = objres.Fields("专家姓名").Value %>
</td>
<td width="15%"> '
<% = objres.Fields("专家类别").Value %>
</td>
<td width="5%"> '
<% = objres.Fields("性别").Value %>
</td>
<td width="12%"> '
<% = objres.Fields("学位").Value %>
</td>
<td width="14%"> '
<% = objres.Fields("专业名称").Value %>
</td>
<td width="13%"> '
<% = objres.Fields("专业技术职称").Value %>
</td>
<td valign="middle" align="center" width="5%"><a href="vbscript:check_onclick(<%=i%>,<% =thispagerecords%>)"><img src="../public/images/del1.gif" width="19" height="17" border="0"></a></td>
</tr>
'
<%
' objres.MoveNext
' next
'%>
<tr bgcolor="#6699CC">
<td colspan="10">
<div align="right"> '
<%
'if curpage>1 then Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
'if recordcode>pagesize then Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
'if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
'if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
' %>
第 '
<% =curpage %>
页／共 '
<% =pagesum %>
页／共 '
<% =objres.RecordCount %>
条记录 </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -