📄 viewcom.asp
字号:
<%
if Request.ServerVariables("http_method")="GET" then
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="dsn=findjob"
conn.Open
strsql="select * from cominfo where comid='" & Request.QueryString("comid") & "'"
set sqlresult=conn.Execute(strsql)
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="viewcom.asp" method=post id=form1 name=form1>
<P align=center><FONT color=crimson face=幼圆
size=5>公司/单位情况登记</FONT></P>
<P ><FONT face=幼圆>
<TABLE border=1 cellPadding=1 cellSpacing=1 height=123
style="HEIGHT: 123px; WIDTH: 511px" width=85.31%>
<TR>
<TD>公司名称：<%=sqlresult("comname")%>
<TR>
<TD colSpan=2>公司地址：<%=sqlresult("comaddr")%>
<TR>
<TD colSpan=2>需要的人才类型：<%=sqlresult("comwanted")%>
<TR>
<TD colSpan=2>
<TR>
<TD colSpan=2>
<DIV align=center>公司简介</DIV><pre><%=sqlresult("comintroduce")%></pre>
<TR>
<TD colSpan=2>
<DIV align=center> </DIV>
<TR>
<TD colSpan=2>与该公司/单位联系：
<TR>
<TD colSpan=2>
<DIV align=center><TEXTAREA id=TEXTAREA1 name=message style="HEIGHT: 107px; WIDTH: 474px">xx公司/单位：
xxxxxxxxxxxxxx.
xxx(2000.4.6)
</TEXTAREA></DIV>
<TR>
<TD colSpan=2>
<INPUT type=hidden value=<%=Request.QueryString("comid")%> id=button1 name=comid>
<P><INPUT id=submit1 name=submit1 type=submit value=发送></P></TD></TR></TABLE></FONT></P>
</FORM>
<%
conn.Close
set conn=nothing
else
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=findjob"
rec.Source="select * from usercom"
rec.Open ,,1,3
'将求职者发给公司的信息加入到数据库中
rec.AddNew
rec("comid")=Request.Form("comid")
rec("user")=session("useronline")
rec("comtouser")=2
rec("message")=Request.Form("message")
rec.Update
rec.Close
set rec=nothing
'转向mainframe.asp显示信息
Response.Redirect "mainFrame.asp?message=给该公司/单位的消息已经发出！！！"
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -