?? comedit.asp
字號:
<%@ Language=VBScript %>
<%
if session("comname")="" then
'如果還沒有登記,則重定向到信息提示頁面提示先進行登記
Response.Redirect "mainFrame.asp?message=請先進行單位/公司資料的登記"
end if
%>
<%
'使用Connection對象對數據庫進行操作
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="dsn=findjob"
conn.Open
if Request.ServerVariables("http_method")="POST" then
'如果是本頁面提交修改
m_name=Request.Form("txtname")
m_addr=Request.Form("txtaddr")
m_wanted=Request.Form("txtwanted")
m_introduce=Request.Form("txtintro")
'定義更新單位記錄的sql語句
strsql="update cominfo set comname='" & m_name & "',comaddr='" _
& m_addr & "',comwanted='" & m_wanted & "',comintroduce='" & _
m_introduce & "' where comid='" & session("comonline") & "'"
'執行修改操作
conn.Execute(strsql)
'重定向到信息提示頁面
Response.Redirect "mainFrame.asp?message=單位/公司資料的修改完成"
end if
'以下是根據公司的帳號查詢公司的記錄顯示在表單上以進行修改
strsql="select * from cominfo where comid='" & session("comonline") & "'"
set sqlresult=conn.Execute(strsql)
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P align=center><FONT color=crimson face=幼圓
size=5>公司/單位情況修改</FONT></P>
<FORM action="" method=POST id=form1 name=form1><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=txtname style="HEIGHT: 21px; WIDTH: 402px" value=<%=sqlresult("comname")%>></TD>
<TR>
<TD colSpan=2>公司地址:
<INPUT id=text2 name=txtaddr style="HEIGHT: 21px; WIDTH: 400px" value=<%=sqlresult("comaddr")%>>
<TR>
<TD colSpan=2>需要的人才類型:
<INPUT id=text3 name=txtwanted
style="HEIGHT: 24px; WIDTH: 357px" value=<%=sqlresult("comwanted")%>></TD>
<TR>
<TD colSpan=2>
<TR>
<TD colSpan=2>
<DIV align=center>公司簡介</DIV>
<TR>
<TD colSpan=2>
<DIV align=center><TEXTAREA id=TEXTAREA1 name=txtintro style="HEIGHT: 166px; WIDTH: 485px"><%=sqlresult("comintroduce")%></TEXTAREA></DIV>
<TR>
<TD colSpan=2>
<P> <INPUT id=submit1 name=submit1 type=submit value=修改></P></TD></TR></TABLE></FONT></P>
</FORM>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -