|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.2.ASP代码（设立一DSN,请修改begin.asp）
----------------------------------
------文件begin.asp
<%
SetCon=Server.CreateObject("ADODB.Connection")
Con.Open"test","test","test"
%>
-----文件reg_step1.asp
<html>
<head>
<title>会员注册--基础信息</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<SCRIPTLANGUAGE="JavaScript1.1">
functionverifyIt(form){
for(i=0;i<document.forms[0].elements.length;i++){
if(document.forms[0].elements[i].type=="text"&&document.forms[0].elements[i].value==""){
alert("一切内容必需填写！")
returnfalse;
}
}
if(document.forms[0].n_pass.value.length<6){
alert("暗码不得少于6位")
returnfalse
}
if(document.forms[0].n_pass.value!=document.forms[0].nq_pass.value){
alert("暗码与确认暗码纷歧致！")
document.forms[0].n_pass.value=""
document.forms[0].nq_pass.value=""
returnfalse;
}
returntrue;
}
</SCRIPT>
</head>
<bodybgcolor="#FFFFFF"leftmargin="0"topmargin="0"marginwidth="0"marginheight="0"text="#333333">
<tablewidth="750"border="0"cellspacing="0"cellpadding="0">
<tr>
<td></td>
</tr>
<tr>
<td>
<tablewidth="777"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="149"valign="top"></td>
<tdwidth="628"valign="top">
<tablewidth="628"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="464"height="12"valign="top"></td>
<tdwidth="164"height="12"valign="top"></td>
</tr>
<tr>
<tdwidth="464"height="203"valign="top">
<tablewidth="460"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="10"height="198"valign="top"></td>
<tdwidth="450"height="198"valign="top"align="center"class="txt105">
<formname="ord_1"action="reg_step1_sub.asp"method="post">
<tablewidth="400"border="0"cellspacing="0"cellpadding="0"align="center">
<tralign="center">
<tdclass="txt105"height="36"><fontcolor="#336600">新会员注册-基础信息</font>
<hrsize="1"align="left"color="#669999">
</td>
</tr>
<trvalign="top">
<tdheight="45">
<tablewidth="400"border="0">
<tr>
<tdwidth="150"class="txt105"align="right"><fontcolor="#336600">用户名：</font></td>
<tdwidth="240"class="txt105">
<inputtype="text"name="n_name"class="txt9"size="20">
</td>
</tr>
<tr>
<tdwidth="150"class="txt105"align="right"><fontcolor="#336600">暗码：</font></td>
<tdwidth="240"class="txt105">
<inputtype="password"name="n_pass"class="txt9"size="20">
<fontcolor="#336600">最少6位</font></td>
</tr>
<tr>
<tdwidth="150"class="txt105"align="right"height="33"><fontcolor="#336600">确认暗码：</font></td>
<tdwidth="240"class="txt105"height="33">
<inputtype="password"name="nq_pass"class="txt9"size="20">
</td>
</tr>
</table>
</td>
</tr>
<tralign="center">
<tdheight="41">
<hrsize="1"align="left"color="#669999">
<inputtype="submit"name="Submit"value="请求"class="txt9">
<inputtype="reset"name="reset"value="重填"class="txt9">
</td>
</tr>
<tralign="center">
<tdclass="txt105"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
<tdwidth="164"valign="top"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tralign="center">
<td></td>
</tr>
</table>
</body>
</html>
---文件reg_step1_sub.asp
<%
u_name=Request.Form("n_name")
u_pass=Request.Form("n_pass")
ifu_name=""andu_pass=""then
Response.Redirect"reg_step1.asp"
Response.end
endif
%>
<!--#includefile="../inc/adovbs.inc"-->
<!--#includefile="../inc/begin.asp"-->
<html>
<head>
<title>会员注册</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<linkrel="stylesheet"href="../CSS/sty1.css"type="text/css">
</head>
<bodybgcolor="#FFFFFF"leftmargin="0"topmargin="0"marginwidth="0"marginheight="0"text="#333333">
<tablewidth="750"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdheight="49"></td>
</tr>
<tr>
<td>
<tablewidth="777"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="147"valign="top"height="400"></td>
<tdwidth="630"valign="top"height="400">
<tablewidth="620"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="474"height="12"valign="top"></td>
<tdwidth="146"height="12"valign="top"></td>
</tr>
<tr>
<tdwidth="474"height="379"valign="top">
<tablewidth="452"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="18"height="376"valign="top"></td>
<tdwidth="434"height="376"valign="top"class="txt105">
<p>
<%
iftrim(u_name)=""then
Response.write"<divalign=center><aclass=link8href=javascript:history.go(-1)>用户名不克不及为空格,前往。</a></div>"
Response.write"</body></html>"
Response.end
else
u_name=rtrim(trim(u_name))
endif
ifinstr(u_name,"")0then
Response.write"<divalign=center><aclass=link8href=javascript:history.go(-1)>用户名中不克不及包括空格,前往。</a></div>"
Response.write"</body></html>"
Response.end
endif
ifinstr(u_pass,"")0then
Response.write"<divalign=center><aclass=link8href=javascript:history.go(-1)>暗码中不克不及包括空格,前往。</a></div>"
Response.write"</body></html>"
Response.end
endif
SetMyCommand=Server.CreateObject("ADODB.Command")
SetMyCommand.ActiveConnection=Con
MyCommand.CommandType=adCmdStoredProc
MyCommand.CommandText="proc_UserRegBase"
MyCommand.Parameters.AppendMyCommand.CreateParameter("u_name",adVarChar,adParamInput,30)
MyCommand.Parameters.AppendMyCommand.CreateParameter("u_pass",adVarChar,adParamInput,30)
MyCommand.Parameters("u_name")=u_name
MyCommand.Parameters("u_pass")=u_pass
SetRS=MyCommand.Execute()
SetRS=Server.CreateObject("ADODB.RecordSet")
strSql="proc_userRegBase"&u_name&","&u_pass&""
SETRS=Con.Execute(strSql)
check_reg=RS("resultID")
ifcheck_reg=0then
setRS=rs.NextRecordSet
VailCodeLogin=rtrim(trim(RS("ValidCodeLogin")))
Session("lotto_isLogin")=rtrim(trim(RS("ValidCodeLogin")))
Session("lotto_username")=u_name
endif
RS.Close
Con.Close
%>
<%ifcheck_reg=0then%>
</p>
<tablewidth="400"border="0"align="center"cellspacing="0"cellpadding="0">
<tr>
<tdclass="txt105"align="center"><fontcolor="#336600">注
册成功！</font></td>
</tr>
<tr>
<tdclass="txt105"align="center">
<hrsize="1"color="#669999">
</td>
</tr>
<tr>
<tdclass="txt105"align="center"height="35">
<p>用户名：<b><%=u_name%></b><br>
暗码：<b><%=u_pass%></b></p>
</td>
</tr>
<tr>
<tdclass="txt9"height="188">
<hrsize="1"color="#669999">
<tablewidth="320"border="0"cellspacing="0"cellpadding="0"align="center">
<tralign="center">
<tdclass="txt105"colspan="2">按<ahref="reg_step2.asp?VailCodeLogin=<%=VailCodeLogin%>&name=<%=u_name%>"><fontcolor="#336600">这里</font></a>，<ahref="reg_step2.asp?VailCodeLogin=<%=VailCodeLogin%>&name=<%=u_name%>"><fontcolor="#336600">填写具体的团体材料</font></a>。</td>
</tr>
<tr>
<tdclass="txt105"colspan="2"></td>
</tr>
<tr>
<tdclass="txt105"width="18"></td>
<tdclass="txt105"width="302"><fontcolor="#000000">注重，请细心浏览以下事项：</font></td>
</tr>
<tr>
<tdclass="txt105"colspan="2"valign="top">
<hrsize="1"color="#669999">
</td>
</tr>
<tr>
<tdclass="txt105"width="18"valign="top">1.</td>
<tdclass="txt105"width="302">假如您想举行网上订购，必需填写更具体的团体材料。</td>
</tr>
<tr>
<tdclass="txt105"width="18"valign="top">2.</td>
<tdclass="txt105"width="302">假如您想今后填写，请在登录形态，进进"彩平易近社区"-"用户服务"
功效区填写。</td>
</tr>
<tr>
<tdclass="txt105"width="18"valign="top"></td>
<tdclass="txt105"width="302"></td>
</tr>
</table>
</td>
</tr>
<tr>
<tdclass="txt9"align="center"></td>
</tr>
</table>
<%endif%>
<%ifcheck_reg=-1then%>
<tablewidth="400"border="0"align="center"cellpadding="0"cellspacing="0">
<tralign="center">
<td></td>
</tr>
<tralign="center">
<td></td>
</tr>
<tralign="center">
<td><ahref="javascript:history.go(-1)"class="LINK8">该用户名已存在，前往。</a></td>
</tr>
</table>
<%endif%>
</td>
</tr>
</table>
</td>
<tdwidth="147"valign="top"height="379"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件 |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:29:23
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜