📄 gup_search.asp

📁 我自己些的小程序

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
	<HEAD>
		<script language="javascript">
		function set_return_specific(G_name,G_add,G_PC,G_ID) 
		{
			window.opener.document.Form1.TEXTAREA1.value = "" + G_name;
			window.opener.document.Form1.TEXTAREA2.value = "" + G_add;
			window.opener.document.Form1.Text2.value=""+G_PC;
			window.opener.document.Form1.myH3.value=""+G_ID;
			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>
			<% 
			
set rs=server.createobject("adodb.recordset") 
conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=myTrval;Data Source=." 
sql="select Group_ID,Group_Name,Group_Add,Group_PC  from TabGroup" 
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("Group_Name")%>" ,"<%=rs("Group_Add")%>","<%=rs("Group_PC")%>","<%=rs("Group_ID")%>");'>
						<%=rs("Group_ID")%>
					</a>
				</td>
				<td width="100"><%=rs("Group_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 + -