comedit.asp

来自「职位管理 用户管理 登陆管理 工作管理 信息管理」· ASP 代码 · 共 68 行

ASP
68 行
字号 
<%@ 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>&nbsp;<INPUT id=submit1 name=submit1 type=submit value=修改></P></TD></TR></TABLE></FONT></P>
</FORM>
</BODY>
</HTML>

comedit.asp - 源码说明

本页面展示了「职位管理 用户管理 登陆管理 工作管理 信息管理」中的 comedit.asp 源码文件，采用 ASP 编程语言编写，共 68 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与用户相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?