📄 topdeparttype.asp

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

💻 ASP

字号:

<!--#include file="../../Include/AdoConn.asp"-->
<%
set rstLB=server.CreateObject ("ADODB.recordset")
StrSQL="select distinct 主管部门类别 from XT_VC_User where len(用户编码)=3"
	rstLB.CursorType =3
	rstLB.CursorLocation =3
	rstLB.LockType =2
rstLB.Open StrSQL,strconn
%>
<html>
<head>
<title>主管部门类别列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/Cssbutton.css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="300" border="1" cellspacing="1" cellpadding="0" bordercolor="#0066CC">
  <tr>
    <td bgcolor="#C4E1FF" height="20">请选择主管部门类别： </td>
  </tr>
  <tr>
    <td height="150" valign="top"> 
      <% if rstLB.recordcount>8 then     '超过5条记录时滚动显示%>
      <MARQUEE direction=down height=150 width=200 scrollAmount=1 scrollDelay=100   align="center"> 
      <% end if%>
      <%
	if rstLB.recordcount=""then
	response.write "没有符合条件的记录！"
	else
	for i=1 to rstLB.recordcount
	%>
      <INPUT type="radio" id=radio1 name=radio1 checked  value="<% Response.write rstLB("主管部门类别") %>" onclick=window.location.href="TopDepart.asp?Table_name=Xt_VC_user&Pname=DepartCode&value="+this.value;>
      <%=rstLB("主管部门类别")%><br>
      <%rstLB.movenext
   next
   rstLB.Close
   set rstLB=nothing
end if
   %>
    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -