📄 cus_search.asp

📁 我自己些的小程序

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
	<HEAD>
		
		<script language="javascript">
		function set_return_specific(C_id, C_name,fid) 
		{
			switch(fid)
			{
				case "1":			
					window.opener.document.Form1.Text1.value = "" + C_name;
					window.opener.document.Form1.myH1.value = "" + C_id;
					break;
				case "2":			
					window.opener.document.Form1.Text2.value = "" + C_name;
					window.opener.document.Form1.myH2.value = "" + C_id;
					break;
				case "3":			
					window.opener.document.Form1.Text3.value = "" + C_name;
					window.opener.document.Form1.myH3.value = "" + C_id;
					break;
				case "4":			
					window.opener.document.Form1.Text4.value = "" + C_name;
					window.opener.document.Form1.myH4.value = "" + C_id;
					break;
				
			}
			window.close();
		}
		</script>
	</HEAD>
	<BODY background="Image/background.gif" text="#0000ff">
		<%dim fid%>
		<table width="200" border="1" align="center" bordercolor="#ff9933" cellspacing="0" cellpadding="0">
			<tr>
				<td width="100"><b>ID号码</b></td>
				<td width="100"><b>姓名</b></td>
			</tr>
			<% 
			fid=Request("FID")
			'Response.Write(fid)
set rs=server.createobject("adodb.recordset") 
conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=myTrval;Data Source=." 
sql="select Cus_ID,Cus_Name  from TabCustomer" 
rs.open sql,conn,1,1 
if rs.EOF or rs.BOF then
	Response.Write "数据库中暂无资料!"
else
do while not rs.EOF or rs.BOF
%>
			<tr>
				<td width="100"><FONT face="宋体"></FONT>
				<a href="" onclick='set_return_specific("<%=rs("Cus_ID")%>" ,"<%=rs("Cus_Name")%>","<%=fid%>");'>
				<%=rs("Cus_ID")%>
				</a>
				</td>
				<td width="100"><%=rs("Cus_Name")%><FONT face="宋体"></FONT></td>
			</tr>
			<%
rs.movenext
loop
end if
set rs=nothing 
set conn=nothing
%>
		</table>
	</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -