📄 增加帐号1.asp

📁 本网络考核系统采用现在比较先进的基于B-S模式的全新的网络考试系统。服务器端对数据库进行管理

💻 ASP

字号:

<%@ Language=VBScript %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset") 
sql="select * from 单位记录"
Set base= conn.Execute(sql)
ii=0
do while not base.eof
	if session("user")=base("用户名") then
		ii=1
end if
base.movenext
loop
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网络考场</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body background="../images/1024.jpg">
<%
if ii=0 then
	sql="insert into 单位记录 (用户名,密码,权限) values ('"& session("user") &"','"& session("mima") &"','"& session("quanxian") &"')"
	r1=conn.execute(sql)
	conn.close
%>
<form>
  <p title>　</p>
  <table border="0" width="100%">
    <tr>
      <th width="100%"><table border="0" width="100%">
        <tr>
          <th width="100%"><img src="../Images/back.gif" alt="../背景.gif (87350 bytes)"></th>
        </tr>
      </table>
      </th>
    </tr>
  </table>
  <table border="0" width="100%">
    <tr>
      <td width="100%" checked="false">
        <p align="center"><font color="#00FF00" size="5"><b>添加用户成功，请返回主界面！</b></font></td>
    </tr>
  </table>
  <p>　</p>
  <table border="0" width="100%">
    <tr>
      <td width="100%" checked="false"></td>
    </tr>
  </table>
  <div align="center"><center><p title><a href="idmanage.asp"><input id="submit1" name="submit1" type="submit"
  style="font-size: large; font-style: normal; font-variant: normal; font-weight: bold; background-image: url('../Images/back.bmp'); background-repeat: no-repeat; background-position: center 50%"
  title value="     "></a></p>
  </center></div>
</form>
<%else%>
<form action="idmanage.asp" id="FORM2" method="post" name="FORM2">
  <p title>　</p>
  <table border="0" width="100%">
    <tr>
      <th width="100%"><table border="0" width="100%">
        <tr>
          <th width="100%"><img src="../Images/back.gif" alt="../背景.gif (87350 bytes)"></th>
        </tr>
      </table>
      </th>
    </tr>
  </table>
  <table border="0" width="100%">
    <tr>
      <td width="100%" checked="false">
        <p align="center"><font color="#00FF00" size="5"><b>已有此用户，请返回主界面！</b></font></td>
    </tr>
  </table>
  <p>　</p>
  <table border="0" width="100%">
    <tr>
      <td width="100%" checked="false"></td>
    </tr>
  </table>
  <div align="center"><center><p title><a href="idmanage.asp">
  <input id="submit1" name="submit1" type="submit"
  style="font-size: large; font-style: normal; font-variant: normal; font-weight: bold; background-image: url('../Images/back.bmp'); background-repeat: no-repeat; background-position: center 50%"
  title value="     "></a></p>
  </center></div>
</form>
<%end if%>
</body>
</html>

💿 文件大小 1001 K

👤 上传用户 zhoujun008

📂 所属分类 Java编程

🏷️ 相关标签

#B-S #网络 #比较 #模式

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -