?? projectpsfp_list.asp
字號:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<html>
<head>
<title>專家分配</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
TD {FONT-SIZE: 9pt}
A:link
{
COLOR: #000000;
FONT-FAMILY: 宋體;
FONT-SIZE: 9pt
}
A:visited
{
COLOR: #000000;
FONT-FAMILY: 宋體;
FONT-SIZE: 9pt
}
A:active
{
COLOR: #000000;
FONT-FAMILY: 宋體;
FONT-SIZE: 9pt
}
A:hover
{
COLOR: blue;
FONT-FAMILY: 宋體;
FONT-SIZE: 9pt
}
</style>
</head>
<Script Language=JavaScript>
<!--
function SelAll_onclick(){
if(ConList.SelAll.checked){
SetAll();
}
else{
UnSetAll();
}
}
function SetAll(){
var intCount;
if(ConList.all("checkCon").length > 1){
for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
ConList.checkCon(intCount).checked = true;
}
}
else{
ConList.checkCon.checked = true;
}
}
function UnSetAll(){
var intCount;
if(ConList.all("checkCon").length > 1){
for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
ConList.checkCon(intCount).checked = false;
}
}
else{
ConList.checkCon.checked = false;
}
}
function checkCon_onclick(){
var intCount;
ConList.SelAll.checked = true;
if(ConList.all("checkCon").length > 1){
for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
if(ConList.checkCon(intCount).checked == false){
ConList.SelAll.checked = false;
}
}
}
else{
if(ConList.checkCon.checked == false){
ConList.SelAll.checked = false;
}
}
}
//-->
</Script>
<script language="vbscript"runat="server">
function msgzh()
msgzh= MsgBox ("確定要刪除此專家嗎？", vbYesNo, "提示信息")
if msgzh=vbyes then
document.ConList.submitType.value="DelExpert"
document.ConList.submit()
end if
end function
</script>
<%
if request("submitType")="DelExpert" then
ProjectCode=request("ProjectCode")
ExpertCode=request("ExpertCode")
strsqldel="delete from XT_TD_ProjectExpertYJ where 項目編碼='"&ProjectCode&"' and 專家編碼='"&ExpertCode&"'"
conn.execute strsqldel,1
response.write"此記錄已刪除!"
%><br>
<a href="ProjectPSFP_EditList.asp"><%response.write"按此返回"%></a>
<%
response.end
end if
%>
<%
Code=Request.QueryString ("Code")
strsql="select * from XT_VC_ProjectExpert where 項目編碼='"&Code&"'"
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
objres.Open strsql,strconn
dim pagesum '頁數
dim thispagerecords '當前頁記錄條數
dim recordcode '記錄序號
dim curpage '當前頁碼
dim pagesize
pagesize=10
pagesum=objres.PageCount
if Request.QueryString("page")=""then curpage=1 else curpage=Request.QueryString("page")
if cint(curpage)> cint(pagesum) then curpage=pagesum '轉換成整數格式時必須的，大量實驗已經證明
'end if
%>
<%
rstSQL="select * from xt_vd_ProjectName where 項目編碼='"&code&"'"
set rst=server.CreateObject ("adodb.recordset")
rst.Open rstSQL,strconn
%>
<body bgcolor="#FFFFFF" text="#000000">
<form name=ConList method="post" action="ProjectPSFP_list.asp?ProjectCode=<%=rst("項目編碼")%>&ExpertCode=<%=objres("專家編碼")%>">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#000000">
<tr bgcolor="#FF9900">
<td width="10%" valign="top"> 項目編碼</td>
<td width="10%" valign="top">
<% = rst.Fields("項目編碼").Value %>
</td>
<td width="10%" valign="top">項目名稱</td>
<td width="50%" valign="top"> <a href="../Project/Project_edit1.asp?view=view&edit=edit&code=<% = rst.Fields("項目編碼").Value %>&name=<% = rst.Fields("項目名稱").Value %>&type=<%=rst.Fields ("項目類別").Value %>&strsql=<%=server.URLEncode(backstrsql)%>&page=<%=curpage%>" target="_blank" class=blank>
<% = rst.Fields("項目名稱").Value %>
</a></td>
<td width="10%" valign="top">體系分類</td>
<%txfl=objres("體系分類")%>
<%if txfl="1" then%>
<td width="10%" valign="top">應用開發</td>
<%end if%>
<%if txfl="2" then%>
<td width="10%" valign="top">科技攻關</td>
<%end if%>
<%if txfl="3" then%>
<td width="10%" valign="top">科技產業</td>
<%end if%>
</tr>
<%
rst.Close
set rst=nothing
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="294" height="10"></td>
<td width="28"></td>
<td width="125"></td>
<td width="332"></td>
</tr>
<tr>
<td valign="middle" height="20"><font color="#FF0000"><b>專家列表>> </b></font>
<input type="hidden" name="submitType">
</td>
<td></td>
<td valign="top"></td>
<td></td>
</tr>
<tr>
<td height="71" colspan="4" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="#0099FF" align="center" bgcolor="#006699">
<tr bordercolor="#0099FF">
<td width="31" bgcolor="#6699CC">
<div align="center"><a href="#">
<input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
</a></div>
</td>
<td width="45" align="center" bgcolor="#6699CC">
<div align="center">序號</div>
</td>
<td width="72" bgcolor="#6699CC" align="center">
<div align="center">專家編碼</div>
</td>
<td width="82" bgcolor="#6699CC" align="center">
<div align="center">專家姓名</div>
</td>
<td width="99" bgcolor="#6699CC" align="center">專家類別</td>
<td width="37" bgcolor="#6699CC" align="center">性別</td>
<td width="105" bgcolor="#6699CC" align="center">學位</td>
<td width="139" bgcolor="#6699CC" align="center">現從事專業</td>
<td width="81" bgcolor="#6699CC" align="center">職稱</td>
<td width="61" 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="31">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("專家編碼").Value %>/<% =objres.Fields("專家姓名").Value %>>
</div>
</td>
<td width="45" align="center">
<% =recordcode%>
</td>
<td width="72">
<% = objres.Fields("專家編碼").Value %>
</td>
<td width="82"> <a href=<%="../user/Expert_MoreDisplay.asp?ExpertName="&objres("專家姓名")%> target="_blank">
<% = objres.Fields("專家姓名").Value %>
</a> </td>
<td width="99">
<% = objres.Fields("專家類別").Value %>
</td>
<td width="37">
<% = objres.Fields("性別").Value %>
</td>
<td width="105">
<% = objres.Fields("學位").Value %>
</td>
<td width="139">
<% = objres.Fields("專業名稱").Value %>
</td>
<td width="81">
<% = objres.Fields("專業技術職稱").Value %>
</td>
<td width="61">
<div align="center"><a href="vbscript:msgzh()"><img src="../public/images/del1.gif" width="19" height="17" border="0" ></a></div>
</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>
</form>
<br>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -