设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP网站制作之用户注册及跟踪代码（三） ...
返回列表 发新帖
查看: 474|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网站制作之用户注册及跟踪代码（三）

[复制链接]
跳转到指定楼层
楼主
发表于 2015-1-16 22:29:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x
在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。2.ASP代码（设立一DSN,请修改begin.asp）
----------------------------------
-----文件reg_step2.asp
<%
ValidCodeLogin=Request.QueryString("VailCodeLogin")
u_name=Request.QueryString("name")

ifValidCodeLogin=""oru_name=""then
Response.Redirect"reg_step1.asp"
Response.end
endif
%>
<html>
<head>
<title>具体信息填写</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<linkrel="stylesheet"href="../CSS/lotsty1.css">
<SCRIPTLANGUAGE="JavaScript1.1">
functionisPosInteger(inputVal){
inputStr=inputVal.toString()
for(vari=0;i<inputStr.length;i++){
varoneChar=inputStr.charAt(i)
if(oneChar<"0"||oneChar>"9"){
returnfalse
}
}
returntrue
}

functionCheckForm(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].email.value.indexOf("@")==-1||document.forms[0].email.value.indexOf(".")==-1||document.forms[0].email.value.indexOf("@.")!=-1||document.forms[0].email.value==""||document.forms[0].email.value==null||document.forms[0].email.value.indexOf("@")==0){
alert(E-mail未输出或格局有误，请检察!)
returnfalse
}

if(!isPosInteger(document.forms[0].year.value)){
alert("年份必需是数字！")
returnfalse
}
if(!isPosInteger(document.forms[0].month.value)){
alert("月份必需是数字！")
returnfalse
}
if(!isPosInteger(document.forms[0].date.value)){
alert("日期必需是数字！")
returnfalse
}
returntrue;
}
</SCRIPT>
<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="46"></td>
</tr>
<tr>
<tdheight="426">
<tablewidth="777"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="149"valign="top"height="386"></td>
<tdwidth="628"valign="top"height="386">
<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"valign="top"height="367">
<tablewidth="474"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="12"valign="top"height="368"></td>
<tdwidth="462"valign="top"class="txt105"height="368">
<tablewidth="400"border="0"cellspacing="0"cellpadding="0"align="center">
<tralign="center">
<tdwidth="100%"class="txt105"height="20"><fontcolor="#006600">团体具体信息填写
</font></td>
</tr>
<trvalign="top">
<tdwidth="100%"height="346">
<formmethod="post"action="reg_step2_sub.asp">
<tablewidth="400"border="0"cellspacing="4"cellpadding="0"align="center">
<tr>
<tdcolspan="2"class="txt9">
<hrsize="1"align="left"color="#669999">
</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"valign="bottom"><fontcolor="#336600">实在姓名：</font></td>
<tdwidth="277"class="txt9"valign="top">
<inputtype="text"name="true_name"size="10"class="txt9">
</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"valign="bottom"><fontcolor="#336600">性别：</font></td>
<tdwidth="277"class="txt9"valign="top">
<selectname="sex"class="txt9">
<optionvalue="男"selected>男</option>
<optionvalue="女">女</option>
</select>
</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"valign="bottom"><fontcolor="#336600">诞辰：</font></td>
<tdwidth="277"class="txt9"valign="top">
<inputtype="text"name="year"size="4"class="txt9">
年
<inputtype="text"name="month"size="2"class="txt9">
月
<inputtype="text"name="date"size="2"class="txt9">
日</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"><fontcolor="#336600">身份证编号：</font></td>
<tdwidth="277"class="txt9"valign="top">
<inputtype="text"name="idcard"class="txt9">
<br>
作为取货凭据，请务必准确填写。</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"valign="bottom"><fontcolor="#336600">接洽地点：</font></td>
<tdwidth="277"class="txt9"valign="top">
<inputtype="text"name="address"class="txt9">
</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"height="23"><fontcolor="#336600">接洽德律风：</font></td>
<tdwidth="277"class="txt9"valign="top"height="23">
<inputtype="text"name="telephone"class="txt9">
</td>
</tr>
<tr>
<tdwidth="111"class="txt9"align="right"><fontcolor="#336600">Email地点：</font></td>
<tdwidth="277"class="txt9"valign="top">
<inputtype="text"name="email"class="txt9">
<br>
中奖信息将以此E-mail地点发送。</td>
</tr>
<tr>
<tdcolspan="2"class="txt9">
<hrsize="1"align="left"color="#669999">
</td>
</tr>
<tralign="center">
<tdcolspan="2"class="txt9">
<inputtype="submit"name="Submit"value="提交"class="txt9">
<inputtype="reset"name="reset"value="重填"class="txt9">
<inputtype="hidden"name="isLogin"value="<%=ValidCodeLogin%>">
<inputtype="hidden"name="u_name"value="<%=u_name%>">
</td>
</tr>
<tralign="center">
<tdcolspan="2"class="txt9">
<hrsize="1"align="left"color="#669999">
</td>
</tr>
<tralign="center">
<tdcolspan="2"class="txt9">
<tablewidth="353"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="353"class="txt9"height="26"><fontcolor="#FF6666">请检察上述信息的准确性，我们将据此来确认您的实在身份。
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<tdwidth="146"valign="top"height="367"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>

</html>


---文件reg_step2_sub.asp

<%
islogin=Request("isLogin")
u_name=Request("u_name")

ifislogin=""oru_name=""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/lotsty1.css">
<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="50"></td>
</tr>
<tr>
<td>
<tablewidth="777"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="149"valign="top"></td>
<tdwidth="628"valign="top">
<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"valign="top">
<tablewidth="471"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="14"valign="top"></td>
<tdwidth="457"valign="top"class="txt105">
<%
true_name=Request("true_name")
sex=Request("sex")
birth=Request("year")&"-"&Request("month")&"-"&Request("date")

ifIsDate(birth)then
birth=FormatDateTime(birth,1)
ifYear(birth)<=999then%>
<tablewidth="400"border="0"cellspacing="0"cellpadding="0"align="center">
<tralign="center">
<tdwidth="400"class="txt9"height="120"><fontcolor="#CC0000">出身日期输出毛病，<ahref="javascript:history.go(-1)"class="link8">前往。</a></font></td>
</tr>
</table>
<%
Response.write"</body></html>"
Response.end
endif
else%>
<tablewidth="400"border="0"cellspacing="0"cellpadding="0"align="center">
<tralign="center">
<tdwidth="400"class="txt9"height="120"><fontcolor="#CC0000">出身日期输出毛病，<ahref="javascript:history.go(-1)"class="link8">前往。</a></font></td>
</tr>
</table>
<%
Response.write"</body></html>"
Response.end
endif

idcard=Request("idcard")
address=Request("address")
email=Request("email")
telephone=Request("telephone")

response.writebirth
response.end

strSql="proc_UserInfoUpdate"
strSql=strSql&""&islogin&""
strSql=strSql&","&true_name&""
strSql=strSql&","&sex&""
strSql=strSql&","&birth&""
strSql=strSql&","&idcard&""
strSql=strSql&","&address&""
strSql=strSql&","&email&""
strSql=strSql&","&telephone&""
Setrs=Con.Execute(strSql)
ret=rs.fields("resultID")
%>
<tablewidth="400"border="0"cellspacing="0"cellpadding="0"align="center">
<%ifret=0then%>
<tr>
<tdwidth="400"class="txt9"height="20"align="center"><fontcolor="#006600">您的团体信息填写以下：</font></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">
<hrsize="1"align="left"color="#669999">
</td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">实在姓名：<%=true_name%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">性别：<%=sex%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">诞辰：<%=birth%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">身份证：<%=idcard%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">地点：<%=address%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">Email:<%=email%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">接洽德律风：<%=telephone%></td>
</tr>
<tr>
<tdwidth="400"class="txt9"height="20"align="center">
<hrsize="1"align="left"color="#669999">
</td>
</tr>
<tralign="center">
<tdwidth="400"class="txt105"height="22">
<tablewidth="320"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="320"class="txt9"height="26"><fontcolor="#FF6666">请检察上述信息的准确性，我们将据此来确认您的实在身份。</font></td>
</tr>
</table>
</td>
</tr>
<tralign="center">
<tdwidth="400"class="txt9"height="17">
<p>请注重您如今已处于登录形态。</p>
<p><ahref="winload.asp">>>登出--一时用<<</a></p>
</td>
</tr>
<%elseifMyCommand("ReturnCode")=-1then%>
<tr>
<tdwidth="400"class="txt105"height="120"align="center"><fontcolor="#CC0000">请先登录。</font></td>
</tr>
<%elseifMyCommand("ReturnCode")=-2then%>
<tr>
<tdwidth="400"class="txt105"height="120"align="center"><fontcolor="#CC0000">用户超时</font></td>
</tr>
<%elseifMyCommand("ReturnCode")=-3then%>
<tr>
<tdwidth="400"class="txt105"height="120"align="center"><fontcolor="#CC0000">用户材料输出毛病</font></td>
</tr>
<%else%>
<%endif%>
</table>

</td>
</tr>
</table>
</td>
<tdwidth="146"valign="top"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tralign="center">
<tdheight="76"></td>
</tr>
</table>
<%Con.Close%>
</body>
</html>


---文件winload.asp


<!--#includefile="../inc/adovbs.inc"-->
<!--#includefile="../inc/begin.asp"-->
<%
validlogin=Session("lotto_isLogin")
ifvalidlogin""then
SetMyComquit=Server.CreateObject("ADODB.Command")
SetMyComquit.ActiveConnection=Con
MyComquit.CommandType=adCmdStoredProc
MyComquit.CommandText="proc_UserLogout"
MyComquit.Parameters.AppendMyComquit.CreateParameter("ReturnCode",adInteger,adParamReturnValue)
MyComquit.Parameters.AppendMyComquit.CreateParameter("quitid",adVarChar,adParamInput,30)
MyComquit.Parameters("quitid")=validlogin
MyComquit.Execute()
endif
Session("lotto_isLogin")=""
Session("lotto_username")=""
Session("lotto_UserLevel")=""
%>
<%Con.Close%>
<metahttp-equiv=refreshcontent=0;url=http://myang.533.net>

asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。
function, content, 详细信息, return, title

相关帖子
回复

使用道具 举报

admin 该用户已被删除
沙发
发表于 2015-1-19 14:42:50 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
回复 支持 反对

使用道具 举报

若天明 该用户已被删除
板凳
发表于 2015-1-26 23:03:16 | 只看该作者
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。
回复 支持 反对

使用道具 举报

只想知道 该用户已被删除
地板
发表于 2015-2-4 23:34:15 | 只看该作者
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
回复 支持 反对

使用道具 举报

乐观 该用户已被删除
5#
发表于 2015-2-10 23:04:20 | 只看该作者
Session:这个存储跟客户端会话过程的数据，默认20分钟失效
回复 支持 反对

使用道具 举报

小妖女 该用户已被删除
6#
发表于 2015-3-1 17:18:01 | 只看该作者
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。
回复 支持 反对

使用道具 举报

飘飘悠悠 该用户已被删除
7#
发表于 2015-3-10 21:25:24 | 只看该作者
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。
回复 支持 反对

使用道具 举报

若相依 该用户已被删除
8#
发表于 2015-3-17 11:08:24 | 只看该作者
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
回复 支持 反对

使用道具 举报

深爱那片海 该用户已被删除
9#
发表于 2015-3-24 08:10:25 | 只看该作者
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-10 04:16

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表