📄 addclass.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统

💻 ASP

字号:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<!--#include file="../conn.asp"-->
<%
   dim id,user
   dim rs,sql,rs1
      set Rs1 = Conn.Execute("select * from jobs")
	if rs1.eof then
      Response.write("<center>还没有任何分类,请先添加分类")  
      Response.End
	end if
   Set rs=Server.CreateObject("Adodb.RecordSet")   
   sql="select * from jobs"   
   rs.Open sql,conn,1,1
%>
<body>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form name="form1" id="form1" method="post" action="">
      <select name="select">
		
		<%
	if rs.eof and rs.bof then
	     response.write "<option value=>请增加类别"
	else
         Do while not rs.eof
             response.write "<option value='" +  Cstr(rs("classid")) + "'>" + rs("class") + "</option>"
             rs.MoveNext
         Loop
	end if
%>
		
      </select>
    </form>
	</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -