📄 searchcom.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="searchcom.asp?page=1" method=POST id=form1 name=form1><P>单位招聘人才类型：
<INPUT id=text1 name=txtsearch>
<INPUT id=submit1 name=submit1 type=submit value=查询 ></P>
</FORM>
<%
if Request.ServerVariables("http_method")="POST" then
if Request.Form("txtsearch")="" then
Response.Write "请填写查询条件"
Response.End
else
'根据查询条件查询符合条件的单位
comselect=Request.Form("txtsearch")
set mcomd=server.CreateObject("adodb.command")
mcomd.ActiveConnection="dsn=findjob"
'findcom为带参数的存储查询
mcomd.CommandText="findcom"
'为该存储查询输入参数的值
set mprama=mcomd.CreateParameter("strsearch",200,1,40,comselect)
mcomd.Parameters.Append mprama
'执行查询
set mrs=mcomd.Execute
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=90%>
<TR>
<TD>公司名称</TD>
<TD>公司地址</TD>
<TD>需求人才类型</TD>
</TR>
<% while not mrs.eof
'用表格的形式列出所有符合查询条件的单位
%>
<TR>
<TD><STRONG><FONT color=mediumorchid face=""><FONT>
<%Response.Write "<a href=viewcom.asp?comid=" & mrs("comid") & ">" & mrs("comname")%>
</A>
</FONT>
</FONT></STRONG><FONT></FONT></TD>
<TD><%=mrs("comaddr")%>
</TD>
<TD><%=mrs("comwanted")%>
</TD>
</TR>
<%
mrs.movenext
wend
end if
end if
%>
<P> </P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -