|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。数据|数据库<!--#includefile="../conn.asp"-->
<%
dimrs,sql,x_name,x_pwd,x_count
IfRequest.Form("do")="ok"Then
IfRequest.Form("user_name")=""Then
Response.Write("<scriptLanguage=javascript>alert(对不起,请输出用户名! );history.go(-1);</script>")
Response.End()
Else
x_name=Request.Form("user_name")
EndIf
↑叛断用户名是不是为空!
IfRequest.Form("user_pwd")=""Then
Response.Write("<scriptLanguage=javascript>alert(对不起,请输出用户暗码! );history.go(-1);</script>")
Response.End()
Else
x_pwd=Request.Form("user_pwd")
EndIf
↑叛断用户暗码是不是为空!
setrs=Server.Createobject("adodb.recordset")
sql="select*from[user]whereuser_name="&x_name&"anduser_pwd="&x_pwd&""
rs.opensql,conn,1,1
ifnotrs.EofThen
session("s_name")=rs("user_name")
session("s_shen")=rs("shenfen")
session("s_shi")=rs("shijian")
Response.Redirect"infoin.asp"
Else
Response.Write("<scriptlanguage=javascript>alert(对不起,用户或暗码毛病! );history.go(-1);</script>")
Response.End()
EndIf
Else
%>
<title>-->体系登录</title>
<styletype="text/CSS">
<!--
.zi{
font-family:Arial,Helvetica,sans-serif;
font-size:10pt;
}
-->
</style>
<p></p>
<p></p>
<p> </p>
<p></p>
<tablewidth="320"height="140"border="0"align="center"cellpadding="0"cellspacing="1"bgcolor="#33CCFF"class="zi">
<tr>
<tdcolspan="2">-->体系登录</td>
</tr>
<formname="form1"method="post"action="index.asp">
<trbgcolor="#FFFFFF">
<tdwidth="72"><divalign="center">帐号:</div></td>
<tdwidth="239">
<inputname="user_name"type="text"id="user_name">
</td>
</tr>
<trbgcolor="#FFFFFF">
<td><divalign="center">暗码:</div></td>
<td><inputname="user_pwd"type="password"id="user_pwd"></td>
</tr>
<trbgcolor="#FFFFFF">
<td></td>
<td><inputtype="submit"name="Submit"value="登录">
<inputtype="button"name="Submit"value="关闭">
<inputname="do"type="hidden"id="do"value="ok"></td>
</tr>
</form>
<tr>
<tdcolspan="2"><divalign="right">v1.00</div></td>
</tr>
</table>
<%EndIf%>
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|