?? topdeparttype.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 + -