filtertype.asp

来自「办公自动化系统」· ASP 代码 · 共 56 行

ASP
56 行
字号 
<%'--------------------------------------------------------------------------
'      Project: AMBER-SOFT网络办公系统
'      Module : 联系人
'      By: imafar
'      Discription: 列出谋联系人所有资料活动
'--------------------------------------------------------------------------%>

<%if session("userid")="" then
	response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
			response.write "<!--"&chr(13)
			response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
			response.write "//-->"&chr(13)
			response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<html>
<head>
<title>联系人信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>/person.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!--
function fnGetInfo()
{
	alert(window.returnValue)
	window.returnValue = FilterTypeID.value;
	alert(window.returnValue)
}
function fnCancel()
{
	window.returnValue  = 1;
}

//-->
</SCRIPT>
</head>
<body bgcolor="#F5F4F1" leftmargin="0" topmargin="0" >
<%
	oRS.open "select * from FN_TABLE_FILTER_TYPE ",oCon
	while not oRS.eof
		if oRS("id")=1 then
			response.write "<INPUT TYPE=""radio"" NAME=""FilterTypeID"" value=""" & oRS("id") & """ checked>"&oRS("notes") & "<BR>"
		else
			response.write "<INPUT TYPE=""radio"" NAME=""FilterTypeID"" value=""" & oRS("id") & """>"&oRS("notes") & "<BR>"
		end if
		oRS.movenext
	wend
	oRS.close

%>
<INPUT VALUE="Ok" TYPE=button onclick="alert(1);fnGetInfo();window.close();">
<INPUT VALUE="Cancel" TYPE=button onclick="fnCancel();window.close();">
</body>
</html>

filtertype.asp - 源码说明

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

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

⌨️ 快捷键说明

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