📄 dj.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}
.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 uid
   dim rs,sql,rs1
   Set rs=Server.CreateObject("Adodb.RecordSet")   
   sql="select * from alluser where user='"&session("user")&"'"   
   rs.Open sql,conn,1,1
   
   Set rs1=Server.CreateObject("Adodb.RecordSet")   
   sql="select classid from cominfo where com='"&session("user")&"' "   
   rs1.Open sql,conn,1,1
%>
<body>
<table width="496" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr><th><font style=line-height:150%><span class="style6">
	<%dim edit		
		Set edit = Conn.Execute("Select * from cominfo where com='"&session("user")&"'")
		If Not edit.Eof then%>
		<% Response.Redirect("edit.asp?classid="&rs1("classid"))%>
		<!--
	<a href="edit.asp?classid=<=rs1("classid")%>" target="right">资料修改</a>
	-->
	<%end if%>
</span></font></th>
  </tr>
</table>
<table width="496" border="0" align="center" cellpadding="0" cellspacing="0">
      <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'>登记资料<FORM METHOD='POST' TARGET= '_self' ACTION='djok.asp?id=" & RS("id") & "&User=" & RS("user") & "'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  Response.Write "<TD><span class='style1'>公司/单位名称:<input id='text1' name='comname' style='height:21px;width:103px'><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'><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'><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'></td>"
		  Response.Write "<tr bgcolor='#EEEEEE'>"
		  %>
	  <td><span class="style1">请选择分类:</span>
	    <select  id="select" name="classid">
          <%
    set rs2 = server.createobject("adodb.recordset")
    rs2.source = "select * from jobs order by classid asc "
    rs2.open rs2.source,conn,1,1
    while not rs2.eof
%>
          <option value="<%=rs2("classid")%>" selected><%=rs2("class")%></option>
          <%
    rs2.movenext
    wend
%>
        </select></td>
		  <%
		  Response.Write "<tr bgcolor='#EEEEEE'>"		 
		  Response.Write "<td><span class='style1'>想要的人才:<input id='text16' name='want1' style='height:21px;width:223px'><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'></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'></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 + -