kq_bjzd.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 64 行

ASP
64 行
字号 
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
	Dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim szddm,szdmc
	szddm=Request.QueryString("dm")
	if szddm<>"" then
		rs.Open "select * from KQ_JBZD where dm=" & szddm,oConn,1,1
		if not rs.EOf then
			szdmc=rs("mc") & ""
		else
			szddm=""
		end if
		rs.Close
	end if
	set rs=nothing
	oConn.close
	set oConn=nothing
%>
<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 ID="clientEventHandlersVBS" LANGUAGE="vbscript">
	<!--
	function Save_onclick
		formZD.txtNR.value=trim(formZD.txtNR.value)
		if Trim(formZD.txtNR.value)="" then	
			msgbox "字典内容不能为空。",vbInformation,"提示"
			exit function	
		end if
		formZD.submit
	End function
	-->
	</script>
</head>
<body>
<div class="TitleBar">编辑假别字典</div>

<table align="center" width="350" class="InputframeMain"><tr><td><table width=330 border=0 align=center cellpadding=0 cellspacing=0 style="Margin:5px 5px 5px 5px">
	<form action="kq_bjzd_save.asp" method="POST" id="formZD" name="formZD"> 
	<tr class=InputframeLine>
		<td class="InputLabelCell" width="80"> 
			字典内容
		</td>
		<td class="InputAreaCell" width="270"> 
			<input id="txtNR" class="input" maxLength="20" name="txtNR" value="<%=server.HTMLEncode(szdmc&"")%>" style="width:100%">
			<input id="txtDM" type="hidden" name="txtDM" value="<%=szddm%>">
		</td>
	</tr>
	<tr class=InputframeButtonLine>
		<td align="center" colspan="4">
			<input class="button" onclick="vbscript:Save_onclick" type="button" value="保存" id="button1" name="button1">
			<input type="button" class="button" onclick="vbscript:history.back" value="返回" id="button2" name="button2"> &nbsp;
		</td>
	</tr>
</form>
</table></td></tr></table>
</body>
</html>

kq_bjzd.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 kq_bjzd.asp 源码文件，采用 ASP 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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