📄 topdepart.asp

📁 ASP程序实现的科技期刊系统

💻 ASP

字号:

<!--#include file="../../Include/AdoConn.asp"-->
<%
set rst=server.CreateObject ("ADODB.recordset")
StrSQL="select 用户编码,用户姓名 from XT_VC_User where len(用户编码)=3 and 主管部门类别='"&request.querystring("value")&"'"
	rst.CursorType =3
	rst.CursorLocation =3
	rst.LockType =2
rst.Open StrSQL,strconn
reccount=rst.recordcount
%>
<html>
<head>
<title>主管部门列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/Cssbutton.css">
<script language=javascript> 
function updateparent(textfield,objLength){ 
if (objLength==1)//只有一项
{opener.document.forms(0).<%=request.querystring("Pname")%>.value=textfield.value }
if (objLength==0)//有多项
{
	for(i=0;i<textfield.length;i++)
		{
		if (textfield(i).checked) opener.document.forms(0).<%=request.querystring("Pname")%>.value=textfield(i).value 
		}
}
window.close()
} 
//end hiding 
</script> 
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="300" border="1" cellspacing="1" cellpadding="0" bordercolor="#0066CC">
  <tr>
    <td bgcolor="#C4E1FF" height="20">请选择接收部门： 
      <input type="button" value="确定" id=button1 name=button1 onClick="javascript:<%if reccount=1 then %>updateparent(code,1) <%else%> updateparent(code,0)<%end if%>" class="button">
      <input type="button" name="Submit" value="返回" onClick="history.back()" class="button">
    </td>
  </tr>
  <tr>
    <td height="150" valign="top"> 
<%if rst.eof then
	response.end
  else
%>
      <% if reccount>8 then     '超过8条记录时滚动显示%>
      <MARQUEE direction=down height=150 width=200 scrollAmount=1 scrollDelay=80  align="center"> 
      <% end if%>
      <%
	if reccount=""then
	response.write "没有符合条件的记录！"
	else
	for i=1 to reccount
	%>
      <INPUT type="radio" id="radio1" name="code" checked  value="<% Response.write rst("用户编码") %>">
      <%=" "+rst("用户编码")+" "%><%=rst("用户姓名")%><br>
      <%rst.movenext
   next
   rst.close
   set rst=nothing
end if
   %>
<%end if%>
    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -