📄 djok.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统
💻 ASP
字号:
<%
'毕业设计:林林在线网络招聘系统
'毕业设计:林林在线网络招聘系统
  dim name,com,want1,want2,phone,id,email,addr,introduce,classid
  name = Request("comname")   
  com = Request("user")   
  want1 = Request("want1") 
  want2 = Request("want2")  
  phone = Request("phone")
  id = Request("id")
  email = Request("email")
  addr = Request("addr")
  introduce = Request("introduce")
  classid = Request("classid")
%>
<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style3 {color: #FF0000}
-->
</style>
  <BODY BGCOLOR="LightYellow">
    <!-- #include file="conn.asp" -->
	<%
if session("user")="" then
      Response.write("<center>使用错误,请先登陆")  
      Response.End
end if
%>
    <%
    dim rs, sql
    Set rs=Server.CreateObject("Adodb.RecordSet")   
    sql="select * from cominfo"
    rs.Open sql,conn,1,3
	
	if request.Form("comname")="" or request.Form("addr")="" or request.Form("want1")="" or request.Form("phone")="" or _
	request.Form("introduce")="" then
		Response.write "<CENTER><P><span class='style2'>带 <span class='style3'>*</span> 都不能为空！</span></p>" & _
		"<P><a href='javascript:onclick=history.go(-1)'><span class='style2'>返回</span></a></P></CENTER>" 
		Response.End
        end if
	
	    dim add		
		Set add = Conn.Execute("Select * from cominfo where com='"&Request.QueryString("user")&"' or com='"&session("user")&"'")
		If Not add.Eof then
		    response.write "   <html><head><link rel='stylesheet' href='style.css'></head><body>"
	    	response.write "   <br><br><br>"
	    	response.write "    <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
	    	response.write "      <tr > "
	    	response.write "        <td class='title' colspan='2' height='15'> "
	    	response.write "          <div align='center'><span class='style1'>您已经登记过了!</span></div>"
	    	response.write "        </td>"
	    	response.write "      </tr>"
	    	response.write "      <tr> "
	    	response.write "        <td class='tdbg' colspan='2' height='23'> "
	    	response.write "          <div align='center'><br><br>"
	    	response.write "      <span class='style1'>返回修改您的资料!!!</span><br><br>"
	    	response.write "        <a href='javascript:onclick=history.go(-1)'><span class='style2'>返回</span></a>"        
	    	response.write "        <br><br></div></td>"
	    	response.write "      </tr></table></body></html>" 
			Response.End
		End If
    RS.AddNew Array("com", "comname", "addr","want1","want2","time","comid","email","phone","introduce","classid"), _
              Array(com, name,addr,want1,want2,Now(),id,email,phone,introduce,classid) 
    RS.Update
       
    '关闭数据库连接并释放对象
    RS.Close         
    Set RS = Nothing 
    Conn.Close         
    Set Conn = Nothing 
    %>
    <CENTER>
    <P class="style1"><span class="style3">*</span>资料登记成功<span class="style3">*</span><br>
    <P class="style1">返回修改资料</P>
    </CENTER>                                                                               
  </BODY>
</HTML>
⌨️ 快捷键说明

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