初学asp

逍遥的雨夜 · 发表于 2010-1-11 06:49:46

刚开始学asp，想学做个程序，请高手指导。
做了个登陆程序，不知道使用单选按钮选择身份的程序该怎么办。
两个sql数据表，一个为teacher用来存放教师信息，一个为student用来存放学生信息。
当选择学生单选项时由student验证，当选择教师单选项时由teacher验证。

这是我的网页代码，有错，单选按钮名称为“shenfen”，学生按钮值为1，教师按钮值为2，谢谢：
<%@LANGUAGE="JAVASCRIPT"%>

<%
var database = Server.CreateObject("ADODB.Recordset");
database.ActiveConnection = MM_conn_STRING;
database.Source = "SELECT * FROM dbo.st_info ORDER BY id ASC";
database.CursorType = 0;
database.CursorLocation = 2;
database.LockType = 1;
database.Open();
var database_numRows = 0;
%>
<%
// *** Validate request to log in to this site.
var MM_LoginAction = Request.ServerVariables("URL");
if (Request.QueryString!="") MM_LoginAction += "?" + Server.HTMLEncode(Request.QueryString);
var MM_valUsername=String(Request.Form("xuehao"));
if (MM_valUsername != "undefined") {
  var MM_fldUserAuthorization="";
  var MM_redirectLoginSuccess="home.asp";
  var MM_redirectLoginFailed="error.html";
  var MM_flag="ADODB.Recordset";
  var MM_rsUser = Server.CreateObject(MM_flag);
  MM_rsUser.ActiveConnection = MM_conn_STRING;
  MM_rsUser.Source = "SELECT xuehao, mima";
  if (MM_fldUserAuthorization != "") MM_rsUser.Source += "," + MM_fldUserAuthorization;
  MM_rsUser.Source += " FROM dbo.st_info WHERE xuehao='" + MM_valUsername.replace(/'/g, "''") + "' AND mima='" + String(Request.Form("mima")).replace(/'/g, "''") + "'";
  MM_rsUser.CursorType = 0;
  MM_rsUser.CursorLocation = 2;
  MM_rsUser.LockType = 3;
  MM_rsUser.Open();
  if (!MM_rsUser.EOF || !MM_rsUser.BOF) {
// username and password match - this is a valid user
Session("MM_Username") = MM_valUsername;
if (MM_fldUserAuthorization != "") {
   Session("MM_UserAuthorization") = String(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value);
} else {
   Session("MM_UserAuthorization") = "";
}
if (String(Request.QueryString("accessdenied")) != "undefined" && false) {
   MM_redirectLoginSuccess = Request.QueryString("accessdenied");
}
MM_rsUser.Close();
Response.Redirect(MM_redirectLoginSuccess);
  }
  MM_rsUser.Close();
  Response.Redirect(MM_redirectLoginFailed);
}
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页</title>
<style>
　　　 
</style>
</head>

<body>

<table width="863" border="0" align="center" cellpadding="0" cellspacing="0">
  
<td height="181" align="center" valign="middle" background="picture/bg1.jpg"><form action="<%=MM_LoginAction%>" method="POST" name="form1" onSubmit="MM_validateForm('xuehao','','R');return document.MM_returnValue">
   <label><font size="2">学号：</font>
   <input name="xuehao" type="text" id="xuehao" size="14">
   <br>
   </label>
   <label><font size="2"> 密码：</font>
   <input name="mima" type="password" id="mima" size="14">
   <br>
   </label>
<label><font size="2">验证：</font>
   <input name="yanzhengma" type="text" id="yanzhengma" size="14">
   <br>
   </label>
<font size="2">身份：</font>
<label>
<input type="radio" name="shenfen" value="1">
<font size="2"> 学生</font></label>
<label>
<input type="radio" name="shenfen" value="2">
<font size="2">教师</font><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</label>
<p><font size="2"><a href="zhreg.asp">忘记密码？</a> <a href="reg.asp">注册</a> <a href="xgreg.asp">修改密码</a></font></p>
<%
a = request("shenfen")
if (a = "1") {
sql = "select * from st_info";
}
else{
sql = "select * from st_info";
}
end if
%>
</form>
<label></label></td>
<td></td>
<td></td>
  </tr>

  <tr>
<td height="17" valign="top"><img src="picture/bg2.jpg" width="172" height="17" align="absmiddle"></td>
<td></td>
<td></td>
  </tr>
  <tr>
<td height="36" valign="bottom" background="picture/rl.jpg"> </td>
<td></td>
<td></td>
  </tr>
  <tr>
<td height="141" valign="top" background="picture/bg1.jpg"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
      
      <tr>
      <td height="141" colspan="2" align="center" valign="middle"> <script language=JavaScript
type=text/javascript>


      </script> </td>
      </tr>
      <tr>
      <td width="171" height="1"></td>
      <td width="229"></td>
      </tr>
</table></td>
<td></td>
<td></td>
  </tr>
  <tr>
<td height="17" valign="top"><img src="picture/bg2.jpg" width="172" height="17" align="absmiddle"></td>
<td></td>
<td></td>
  </tr>
  <tr>
<td height="11"></td>
<td></td>
<td></td>
  </tr>
</table>
</body>
</html>
<%
database.Close();
%>
附件: 只有本站会员才能下载或查看附件，请您登录或注册

QQ賊aiq嘿 · 发表于 2010-1-11 06:49:50

但是希望各位给我个提示，怎么实现那个功能

不材之木 · 发表于 2010-1-11 06:49:54

扯蛋~大项目才不用DW生成呢大项目最好写成类来调用

爱情海555 · 发表于 2010-1-11 06:49:58

一看带着一大堆MM的代码就是DW生成的

老夫喜欢MM，但不喜欢DW自动生成的MM

我為ぷぃ情醉 · 发表于 2010-1-11 06:50:02

同意楼上观点，不过如果是做大的项目，可以用dw生成注册等界面，这样比较省时间，而且也方便。

Kdsffsd · 发表于 2010-1-11 06:50:06

以下是引用jingjing316在2009-9-15 16:08的发言：

同意楼上观点，不过如果是做大的项目，可以用dw生成注册等界面，这样比较省时间，而且也方便。
用DW生成可以前提是你的基础知识和代码编写能力已经熟练到一定程度，如果没有最好手写，而且公司大项目也不会有拿DW生成代码的，因为那个生成的好多无用代码。

jane · 发表于 2010-1-11 06:50:10

各位，领教了，我用asp再写

可爱 · 发表于 2010-1-11 06:50:14

上面的// *** Validate request to log in to this site. 之后的那些看不懂。
个人觉得在写一个check.asp.
<%
XH=request("xuehao")
MM=request("mima")
SF=request("shenfen")
if SF="1" then
tempstr=instr(shenfen,"1")’shenfen是教师表和学生表中的字段。
if tempstr<>0 then
Response.Cookies("***")=XH
Response.Cookies("***")=MM
'其中***是教师表中对应的字段
end if
else
Response.Cookies("***")=XH
Response.Cookies("***")=MM
'其中***是学生表中对应的字段
end if

%>

踏破^ō^凌云 · 发表于 2010-1-11 06:50:18

我是ＡＳＰ新手，讨厌ＤＷ生成的代码

ご倾城↘恋 · 发表于 2010-1-11 06:50:22

DW生成的代码就不用问了这里是没人回答的如果想学asp就不要用dw生成代码

		自动登录	找回密码
密码			注册