?? comreg.asp
字號:
<%@ Language=VBScript %>
<%
if session("comname")<>"" then
Response.Redirect "mainFrame.asp?message=貴單位/公司已經(jīng)完成的登記,可以進(jìn)行修改"
end if
%>
<%
if Request.ServerVariables("http_method")="POST" then
'處理提交的登記資料
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=findjob"
rec.Source="select * from cominfo where comid='" & session("comonline") & "'"
'根據(jù)存儲在session("comonline")的公司帳號修改公司的記錄
rec.Open ,,1,3
'根據(jù)提交的表單內(nèi)容更新記錄
rec("comname")=Request.Form("comname")
rec("comaddr")=Request.Form("comaddr")
rec("comwanted")=Request.Form("comwanted")
rec("comintroduce")=Request.Form("comintroduce")
rec.Update
rec.Close
session("comname")=Request.Form("comname")
set rec=nothing
Response.Redirect "mainFrame.asp?message=完成了單位/公司的資料登記"
end if
'以下為提供注冊用的表單
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="comreg.asp" method=POST id=form1 name=form1><P align=center><FONT color=crimson face=幼圓
size=5>公司/單位情況登記</FONT></P>
<P ><FONT face=幼圓>
<TABLE border=0 cellPadding=1 cellSpacing=1 height=123
style="HEIGHT: 123px; WIDTH: 511px" width=85.31%>
<TR>
<TD>公司名稱:
<INPUT id=text1 name=comname style="HEIGHT: 21px; WIDTH: 402px"></TD>
<TR>
<TD colSpan=2>公司地址:
<INPUT id=text2 name=comaddr style="HEIGHT: 21px; WIDTH: 400px">
<TR>
<TD colSpan=2>需要的人才類型:
<INPUT id=text3 name=comwanted
style="HEIGHT: 24px; WIDTH: 357px"></TD>
<TR>
<TD colSpan=2>
<TR>
<TD colSpan=2>
<DIV align=center>公司簡介</DIV>
<TR>
<TD colSpan=2>
<DIV align=center><TEXTAREA id=TEXTAREA1 name=comintroduce style="HEIGHT: 166px; WIDTH: 485px"></TEXTAREA></DIV>
<TR>
<TD colSpan=2>
<P> <INPUT id=submit1 name=submit1 type=submit value=登記></P></TD></TR></TABLE></FONT></P>
</FORM>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -