📄 edit.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统
💻 ASP
字号:
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<head>
<title>用户管理</title>
<link rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-size: 12px}
.style3 {color: #FF0000}
.style6 {font-size: 14px}
.style8 {
	font-size: 18px;
	font-weight: bold;
	color: #0000FF;
}
.style9 {font-size: 18px}
.style7 {	font-size: 18px;
	color: #0000FF;
}
-->
</style>
</head>
<!--#include file="conn.asp"-->
<%
'毕业设计:林林在线网络招聘系统	
'毕业设计:林林在线网络招聘系统
if session("user")="" then
      Response.write("<center>使用错误,请先登陆")  
      Response.End
end if
%>
<%
   dim id,user
   dim rs, sql,rs1
   user=session("user")
   id=session("id")
   set Rs1 = Conn.Execute("select * from cominfo where com='"&session("user") &"'")
	if rs1.eof then
      Response.write("<center>您还没有登记,请先登记")  
      Response.End
	end if
   Set rs=Server.CreateObject("Adodb.RecordSet")   
   sql="select * from cominfo where com='"&session("user")&"'"   
   rs.Open sql,conn,1,1
%>
<body>
<table width="496" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td scope="col"><div align="center"><span class="style9">
	  <%
	      Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#CCCCCC'>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style9'>修改资料</span><FORM METHOD='POST' TARGET= '_self' ACTION='../com/editok.asp'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<TD><span class='style1'>公司/单位名称:<input id='text1' name='comname' style='height:21px;width:103px' value='"&rs("comname")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
          Response.Write "<TD><span class='style1'>地址:<input id='text12' name='addr' style='height:21px;width:103px' value='"&rs("addr")&"'><span class='style3'>*</span></TD>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>电话:<input id='text13' name='phone' style='height:21px;width:103px' value='"&rs("phone")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>E-mail:<input id='text14' name='email' style='height:21px;width:103px' value='"&rs("email")&"'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  %>
	  <td><span class="style1">请选择分类:
		  <select class="smallSel" name="classid" size="1">		  	  
<%
	dim sel
	dim classid
	classid=request.querystring("classid")
 	set rs2=server.createobject("adodb.recordset")
  	sql="select * from jobs"
 	rs2.open sql,conn,1,1
	if rs2.eof and rs2.bof then
		response.write "Not record."
	else
	do while not rs2.eof
        if classid=cstr(rs2("classid")) then
               sel="selected"
        else
               sel=""
        end if	
	response.write "<option " & sel & " value='"+CStr(rs2("classID"))+"' name=classid>"+rs2("class")+"</option>"
	rs2.movenext
    	loop
	end if
    rs2.close
	set rs2=nothing
%>        
</select>
	  </td>
		  <%
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>想要的人才:<input id='text16' name='want1' style='height:21px;width:223px' value='"&rs("want1")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>想要的其它人才:<input id='text17' name='want2' style='height:21px;width:203px' value='"&rs("want2")&"'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>公司/单位简介:<span class='style3'>*</span><br><textarea name='introduce' id='textarea4' style='height:135px;width:434px'>"&rs("introduce")&"</textarea></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><INPUT TYPE='SUBMIT' VALUE='修改资料'></td></FORM>"
		  %>		  
      </td>
    </tr>
</table>

  <%  
  rs.Close
  set rs=Nothing  
  conn.Close
  set conn=Nothing
%>
</body>
</html>
⌨️ 快捷键说明

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