📄 kq_zdgl.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")	
%>
<html>
<head>
	<title>考勤字典维护</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link rel="stylesheet" href="../css/main.css" type=text/css>
	<script LANGUAGE="vbscript">			
	<!--			
	sub doDelete()			
		Dim StrID,i			
		StrID=""
		fOR i = 0 TO formZD.elements.length -1
			if left(formZD.elements(i).name,5)="chdel" then
				If formZD.elements(i).checked then			
					strid="ok"
				END If
			end if
		NEXT			
		if StrID<>"ok" then
			msgbox "请选择要删除的字典值!",vbInformation,"提示"
			exit sub
		end if
		If msgbox("是否真删除?",vbQuestion+vbYesNo,"提示")=vbno THEN	exit sub
		formZD.submit
	End sub
	-->
	</script>
</head>

<%
	Dim szddm
%>
<body>
<div class="TitleBar">假别字典维护</div>
<table width=98% class=tabletoolbar border=0 cellspacing="1" cellpadding="0" align=center>
	<tr>
		<td align="left"><div class="TableTitleText">假别字典列表</div></td>
		<td align="right">
			<input type="button" class="button" onclick="vbscript:location.href=&quot;kq_bjzd.asp&quot;" value="增加" id=button1 name=button1>		
			<input type="button" class="button" onclick="vbscript:doDelete()" value="删除" id=button2 name=button2>
		</td>
	</tr>
</table>

<table class="tab" width="98%" align="center" border="0" cellpadding="2" cellspacing="1">
	<form action="kq_zdgl_del.asp" method="POST" id="formZD" name="formZD">
	<tr><td class="tdTop" colspan="5" align="center">字典内容</td></tr>
	<tr class=td1>
<%
	Dim i
	i=-1
	rs.Open "Select * from KQ_JBZD",oConn,1,1
%>
<%
	do While not rs.EOf
		i=i+1
		if i=5 then
			i=0
		%>
			</tr><tr>
		<%
		end if
%>
		<td width="20%"><input TYPE="radio" id="chdel" NAME="chdel" VALUE="<%=rs("DM")%>">
		<a href="kq_bjzd.asp?dm=<%=rs("dm")%>"><%=server.HTMLEncode(rs("MC") & "")%></a></td>			
<%
	rs.MoveNext
	loop
	rs.Close
	set rs=nothing
	oConn.close
	set oConn=nothing
	do while i<4
		i=i+1
%>
	<td width="20%">&nbsp;</td>
<%
	loop
%>
	</tr>
</form>
	<tr><td height=10 class="td2" colspan=5></td></tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -