📄 edit.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统
💻 ASP
字号:
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {font-size: 18px}
.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
   dim rs2,rs3
   user=session("user")
   id=session("id")

   
   set Rs1 = Conn.Execute("select * from userinfo where user='"&session("user") &"'")
	if rs1.eof then
      Response.write("<center>您还没有登记,请先登记")  
      Response.End
	end if
	
   Set rs=Server.CreateObject("Adodb.RecordSet")   
   sql="select * from userinfo where user='"&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='style2'>修改资料</span><FORM METHOD='POST' TARGET= '_self' ACTION='editok.asp'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"		  
		  Response.Write "<TD><span class='style1'>姓名:</span><input id='text1' name='username' style='height:21px;width:103px'  value='"&rs("username")&"'><span class='style3'>*</span></td>"		  
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  if rs("usersex")="男" then
		  Response.Write "<td><span class='style1'>性别:</span><select name='select'><option value='1' selected='selected'>男</option><option value='0'>女</option></select></td>"
          else
		  Response.Write "<td><span class='style1'>性别:</span><select name='select'><option value='1'>男</option><option value='0' selected='selected'>女</option></select></td>"
          end if
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>年龄:</span><input id='text13' name='userage' style='height:21px;width:103px' value='"&rs("userage")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  %>
		  <td><span class="style1">学历:
		  <%if rs("userlevel")="博士" then%>
		  <select name="level" id="level">
    <option value="博士" selected="selected">博士</option>
    <option value="硕士">硕士</option>
    <option value="研究生">研究生</option>
    <option value="本科">本科</option>
    <option value="大专">大专</option>
    <option value="高中及以下">高中及以下</option>
    </select>
          <%else if rs("userlevel")="硕士" then%>
		  <select name="level" id="level">
    <option value="博士">博士</option>
    <option value="硕士" selected="selected">硕士</option>
    <option value="研究生">研究生</option>
    <option value="本科">本科</option>
    <option value="大专">大专</option>
    <option value="高中及以下">高中及以下</option>
    </select>
		  <%else if rs("userlevel")="研究生" then%>
		  <select name="level" id="level">
    <option value="博士">博士</option>
    <option value="硕士">硕士</option>
    <option value="研究生" selected="selected">研究生</option>
    <option value="本科">本科</option>
    <option value="大专">大专</option>
    <option value="高中及以下">高中及以下</option>
  </select>
		  <%else if rs("userlevel")="本科" then%>
		  <select name="level" id="level">
    <option value="博士">博士</option>
    <option value="硕士">硕士</option>
    <option value="研究生">研究生</option>
    <option value="本科" selected="selected">本科</option>
    <option value="大专">大专</option>
    <option value="高中及以下">高中及以下</option>
  </select>
		  <%else if rs("userlevel")="大专" then%>
		  <select name="level" id="level">
    <option value="博士">博士</option>
    <option value="硕士">硕士</option>
    <option value="研究生">研究生</option>
    <option value="本科">本科</option>
    <option value="大专" selected="selected">大专</option>
    <option value="高中及以下">高中及以下</option>
  </select>
		  <%else if rs("userlevel")="高中及以下" then%>
		  <select name="level" id="level">
    <option value="博士">博士</option>
    <option value="硕士">硕士</option>
    <option value="研究生">研究生</option>
    <option value="本科">本科</option>
    <option value="大专">大专</option>
    <option value="高中及以下" selected="selected">高中及以下</option>
  </select>
		  <%end if
		  end if
		  end if
		  end if
		  end if
		  end if
		  %>
		  </td>
		  <%
		  'Response.Write "<tr bgcolor='#EEEEEE'>"
		  'Response.Write "<td><span class='style1'>学历:</span><input id='text14' name='userlevel' style='height:21px;width:103px' value='"&rs("userlevel")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>专业:</span><input id='text15' name='usermajor' style='height:21px;width:103px' value='"&rs("usermajor")&"'><span class='style3'>*</span></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'>想要的工作:</span><input id='text16' name='job1' style='height:21px;width:223px' value='"&rs("job1")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>想要的其它工作:</span><input id='text17' name='job2' style='height:21px;width:203px' value='"&rs("job2")&"'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>E-mail:</span><input id='text15' name='email' style='height:21px;width:103px' value='"&rs("email")&"'></td>"
          Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>电话:</span><input id='text15' name='phone' style='height:21px;width:103px' value='"&rs("phone")&"'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>地址:</span><input id='text15' name='addr' style='height:21px;width:303px' value='"&rs("addr")&"'><span class='style3'>*</span></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<td><span class='style1'>个人简历:</span><span class='style3'>*</span><br><textarea name='resume' id='textarea4' style='height:135px;width:434px'>"&rs("resume")&"</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>
💿 文件大小 742 K
👤 上传用户 maryyxl
📂 所属分类数据库系统
🏷️ 相关标签

#Access #ASP #网络
⌨️ 快捷键说明

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