|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的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%>
</p>对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 |
|