📄 search_company.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<%
dim conn
dim connstr
Set conn=Server.CreateObject("ADODB.Recordset")
connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索公司信息</title>
<style type="text/css">
<!--
.style1 {
font-size: 24px;
font-weight: bold;
font-family: "黑体";
}
-->
</style>
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<center>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
%>
<form action="search_company_result.asp" method="post" name="myform" id="myform">
<table width="579" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr bgcolor="#6500CA">
<td height="77" colspan="3" align="center" valign="middle"><span class="style1">请选择查询公司信息的方式</span></td>
</tr>
<tr>
<td width="217" height="27" align="left" valign="middle" bgcolor="#C184FF" class="bd_font_size"><input name="type" type="radio" value="name" checked>
按照公司名称查询</td>
<td colspan="2" align="left" valign="middle" bgcolor="#C184FF"><select name="name" id="name">
<%
sql="select distinct company_name from GSCOTT.company_info_table"
rs.open sql,connstr,1,1
do while not rs.eof
%>
<option value="<%=rs("company_name")%>"><%=rs("company_name")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr>
<td height="27" align="left" valign="middle" bgcolor="#9326FF" class="bd_font_size"><input name="type" type="radio" value="idcard">
按照执照号查询</td>
<td colspan="2" align="left" valign="middle" bgcolor="#9326FF"><input name="idcard" type="text" id="idcard"></td>
</tr>
<tr>
<td height="27" align="left" valign="middle" bgcolor="#C184FF" class="bd_font_size"><input name="type" type="radio" value="area">
按照地区查询</td>
<td colspan="2" align="left" valign="middle" bgcolor="#C184FF"><select name="area" id="area">
<%
sql="select distinct company_province from GSCOTT.company_info_table"
rs.open sql,connstr,1,1
do while not rs.eof
%>
<option value="<%=rs("company_province")%>"><%=rs("company_province")%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr>
<td height="27" align="left" valign="middle" bgcolor="#9326FF" class="bd_font_size"><input name="type" type="radio" value="detail">
按照细节查询</td>
<td width="173" align="left" valign="middle" bgcolor="#9326FF">
<select name="city" id="city">
<option value="0">所在城市</option>
<option value="1">公司地址</option>
<option value="2">联系电话</option>
<option value="3">注册时间</option>
<option value="4">联系人</option>
</select> </td>
<td width="189" align="left" valign="middle" bgcolor="#9326FF"><input name="detail1" type="text" id="detail1"></td>
</tr>
<tr>
<td height="27" colspan="2" align="center" valign="middle" bgcolor="#C184FF"><input type="submit" name="Submit" value="搜索"></td>
<td align="right" valign="middle" bgcolor="#C184FF" class="bd_font_size"><a href="javascript:history.go(-1)">返回上一页</a></td>
</tr>
<tr>
<td height="62"> </td>
<td></td>
<td></td>
</tr>
</table>
</form>
</center>
</div>
<% set rs=nothing %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -