?? 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 + -