<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="setup.asp"-->
<!--#include file="conn.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>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<div id="box">
<div id="left">
<div id="nav4">点击排行</div>
<div id="nav_content">
<ul>
<%
 Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select top 6 * from news order by hit desc",conn,1,1
if rs.eof and rs.bof then
response.Write("")
else
do while not rs.eof
%>
<li>·<a href="list.asp?yiid=<%=rs("yiid")%>"><%=rs("title")%></a></li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
 %>
</ul>
</div>

</div>

<div id="right">
<div id="address">您的位置：本站首页→ 在线服名
</div>

<div id="big_content">
<div id="content">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
  <form action="baoming.asp?baoming=ok" method="post" name="baoming" id="baoming" >
    <tr>
      <td width="100" align="right">姓名：</td>
      <td width="238" ><input name="RegName" type="text" class="input1" id="RegName" size="12" maxlength="20" />
        &nbsp;<font color="#CC0000">*</font></td>
      <td width="367" >性别：
        <input name="sex" type="radio" value="男" checked="checked" />
        男
        <input type="radio" name="sex" value="女" />
        女				  &nbsp;<font color="#CC0000">*</font></td>
    </tr>
    <tr>
      <td align="right">出生日期：</td>
      <td><input name="Birth" type="text" class="input1" id="Birth" size="16" maxlength="50" />
        &nbsp;<font color="#CC0000">*如:1980-8-8</font></td>
      <td>民族：
        <input name="National" type="text" class="input1" id="National" size="12" maxlength="20" />
        &nbsp;<font color="#CC0000">*</font></td>
    </tr>
    <tr>
      <td align="right">学历：</td>
      <td><input name="Education" type="text" class="input1" id="Education" size="12" maxlength="50" />
        &nbsp;&nbsp;<font color="#CC0000">*</font></td>
      <td>学分：
        <input name="Credit" type="text" class="input1" id="Credit" size="12" maxlength="20" />
        &nbsp;<font color="#CC0000">*</font></td>
    </tr>
    <tr>
      <td align="right">地址：</td>
      <td colspan="2"><input name="Addr" type="text" class="input1" id="Addr" size="40" maxlength="100" /></td>
    </tr>
    <tr>
      <td align="right">电话：</td>
      <td colspan="2"><input name="Telephone" type="text" class="input1" id="Telephone" size="20" maxlength="50" />
        &nbsp;<span style="color: #FF0000">* 电话号码为至少11位</span></td>
    </tr>
    <tr>
      <td align="right">手机：</td>
      <td colspan="2"><input name="Mobile" type="text" class="input1" id="Mobile" size="20" maxlength="50" /></td>
    </tr>
    <tr>
      <td align="right">邮箱：</td>
      <td colspan="2"><input name="Email" type="text" class="input1" id="Email" size="30" maxlength="50" />
        &nbsp;<font color="#CC0000">*</font></td>
    </tr>
    <tr>
      <td align="right">个人简介：</td>
      <td colspan="2"><textarea name="Remark" cols="66" rows="8" class="input1" id="Remark"></textarea></td>
    </tr>
    
    <tr>
      <td height="30" align="right">&nbsp;</td>
      <td colspan="2" valign="bottom">
          <input name="Submit" type="submit" class="but1" value=" 保存 " />
        &nbsp;
        <input name="Reset" type="reset" class="but1" value=" 重置 " /></td>
    </tr>
  </form>
</table>
</div>

</div>
</div>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
If Request.QueryString("baoming") = "ok" Then
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from baoming"
    rs.Open sql, conn, 1, 3
    RegName = request.Form("RegName")
    Sex = request.Form("Sex")
    Birth = request.Form("Birth")
    National = request.Form("National")
    Education = request.Form("Education")
    Credit = request.Form("Credit")
    Addr = request.Form("Addr")
    Mobile = request.Form("Mobile")
	Telephone = request.Form("Telephone")
	Email = request.Form("Email")
	Remark = request.Form("Remark")
    If RegName = "" Then
        response.Write("<script language=javascript>alert('姓名不能为空！');history.go(-1)</script>")
        response.End
    End If
    If Remark = "" Then
        response.Write("<script language=javascript>alert('详细内容不能为空！');history.go(-1)</script>")
        response.End
    End If
    rs.addnew
    rs("RegName") = RegName
    rs("Sex") = Sex
    rs("Birth") = Birth
    rs("National") = National
    rs("Education") = author
    rs("Credit") = Credit
    rs("Addr") = Addr
	rs("Mobile") = Mobile
	rs("Telephone") = Telephone
	rs("Email") = Email
    rs("Remark") = Remark
    rs.update
    rs.Close
    Set rs = Nothing
    conn.Close
    Set rs = Nothing
    Response.Write "<script language=javascript>alert('添加成功！');window.location.href='news_add.asp';</script>"
End If
%>