本人初次用ASP制作网页参考源码写了一个关于网站注册的网页，却无法运行！急请各位大侠赐教或给小弟提供[3条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

·openpicturedialog1 控件的用法——————在线等待 »显示摘要«

摘要：大家好！我在窗体上放了一个openpicturedialog1控件，它的filter属性按缺省的设置，怎么不能打开后缀为*.apf、*.jpg、*.jpeg、的图片啊？？？？？？？？？？这是怎么回事啊？？？？？？在线等待 ......

·repeater中怎样根据数据库中列的值不同，而有相应的显示啊，例如，是1就显示“隐藏”，是2就显示“显示”啊 »显示摘要«

摘要： repeater中怎样根据数据库中列的值不同，而有相应的显示啊，例如，是1就显示“隐藏”，是2就显示“显示”啊 ......

网站用户注册问题请各位大侠指点

本人初次用ASP制作网页参考源码写了一个关于网站注册的网页，却无法运行！急请各位大侠赐教或给小弟提供一些关于网站注册的源码吾将感激不尽阿！代码如下：
1用户注册：
<% @ language=vbscript %>

<%
Dim lStrSQL, lRecItem, lStrDbConnstr
Dim lErrNo,lErrMes
Dim lStrCode, lIsMod,lStudentId
Dim lStudent(6,0)
Dim iii
lStrDBconnStr="DSN=log"
set lRecItem=server.createobject("adodb.recordset")
lErrNo=0
if request.form("CmdClose")="返回" then
response.redirect "LogCheck.Asp"
End If
select case request.form("CmdReg")
case "退出"
response.redirect "LogCheck.asp"
case "确认"
If request.form("txtStId")=" " -
or request.form("txtStName")=" " -
or request.form("txtStPws")=" " -
or request.form("txtStPws2")=" " then
IErrNo=14
else
if request.form("txtStPws")<>request.form("txtStPws2") then
IErrNo=15
end if
lstudent(0,0)=request.form("TxtStId")
lstudent(1,0)=UCase(request.form("TxtStName"))
lstudent(2,0)=request.form("TxtStCI")
lstudent(5,0)=request.form("TxtStPws")
lstudent(3,0)=request.form("TxtStUnit)
lstudent(4,0)=request.form("TxtStContact")
lstudent(6,0)=request.form("TxtStPhone")
lIsMod=request.form("TxtMod")
if lErrNo=0 then
lErrNo=20
lStrSQL="select * from Tbl-studentInfo" & "where StudentId=" & lStudent(0,0) & ";"
lRecItem.open lStrSQL, lStrDbConnStr,adOpenDynamic, adLockOptimistic
if lRecItem.BOF the
lRecItem.AddNew
else
if lIsMod="False" then
lErrNo=13
记录已经存在
end if
end if
if lerrno=20 then
lrecitem.fields("studentid")=lstudent(0,0)
lrecitem.fields("studentname")=lstudent(1,0)
lrecitem.fields("studentci")=lstudent(2,0)
lrecitem.fields("studentpwd")=lstudent(5,0)
lrecitem.fields("studentunit")=lstudent(3,0)
lrecitem.fields("contact")=lstudent(4,0)
lrecitem.fields("telephone")=lstudent(6,0)
lrecitem.update
end if
lrecitem.close
end if
case else
lstudentid=" "
lismod="true"
end select
set lrecitem=nothing

select case lerrno
case 20
lerrmes="恭喜!您已经注册成功!"
case 13
lerrmes="此账户已经存在!请重新注册!"
case 14
lerrmes="账户、昵称、密码不能为空!"
case 15
lerrmes="两次输入的密码不同!"
case else
lerrmes=" "
end select
%>

<html>
<head>
<meta name=vi60-defaultclientscript content=vbscript>
<meta name="generator" content="microsoft visual studio 6.0">
<title>新用户注册</title>
</head>
<body bgcolor=silver>
<p align=center>
<font color=navy face=宋体 size=4><%=lerrmes%></font></p>
<%if lerrno<>20 then%>
<p align=center><strong></strong></p>
<p align=center>
<font color=#000080 face=宋体 size=6>
<strong>新用户注册</strong></font></p>
<table align=center brder=1 cellpading=1 cllspacing=1>
<form action="logregist.asp" id=formreg method=post name=formreg>
<tr>
<td>帐号</td>
<td>
<input id=txtstid name=txtstid maxlength=15 value="<%=lstudent(0,0)%>">
</td></tr>
<tr>
<TD>姓名</TD>
<TD>
<INPUT id=TxtStName name=TxtStName maxlength=20 value="<%=lStudent(1,0)%>">
</TD></TR>
<TR>
<TD>性别</tD>
<TD>
<INPUT id=TxtStCI name=TxtStCI maxlength=15 value="<%=lStudent(2,0)%>">
</TD></TR>
<TR>
<TD>所在院校</TD>
<TD><INPUT id=TxtStCI name=TxtStUnit value="<%=lStu dent(3,0)%>">
</TD></TR>
<TR>
<td>电子信箱</td>
<TD><INPUT id=TxtStContact name=TxtStContact value="<%=lStudent(4,0)%>">
</TD></TR>
<TR>
<TD>电话</TD>
<TD>
<INPUT id=TxtStPhone name=TxtStPhone value="<%=lStudent(6,0)%>">
</TD></TR>
<TR>
<TD>密码</TD>
<TD><INPUT id=TxtStPws name=TxtStPws type=password maxlength=l0>
</TD></TR>
<TR>
<TD>密码确认</TD>
<TD>
<INPUT id=TxtStPws2 name=TxtStPws2 type=password maxlength=l0>
</TD></TR>
<TR>
<TD align=middle colSpan=2>
<FONT face=宋体 size=3>
<INPUT accessKey="<ENTER>" id=CmdOk name=CmdReg Style="HEIGHT: 24px; WIDTH: 70px" type=submit value="确认" width="70">
   
<INPUT id=CmdExit name=CmdReg style=HEIGHT: 24px; WIDTH: 70px" type=submit value="退出" width="70">
</FONT></TD></TR>
</TABLE>
<INPUT id=TxtMod name=TxtMod style="HEIGHT: 22px; VISIBILITY: hidden; WIDTH: 50px"value="<%=lIsMod%>">
</FORM>
<% Else %>
<FORM action="LogRegist.Asp" method=POST id=FormClose name=FormClose>
<P align=center>
<INPUT type="submit" value="返回" id=CmdClose name=CmdClose>
</P>
</FORM>
<% End If %>
</BODY>
</HTML>
2用户登录
<%@ Language=VBScript %>

<%
Dim lStrSQL, lRecItem, lStrDbConnStr
Dim lUserId, lUserPws, lCmdFun
Dim lErrNo, lErrMes
lCmdFun=Request.Form("CmdFun")
lErrNo=0
Select Case lCmdFun
Case "登录"
lUserId=UCase(Request.Form("TxtUserID")
lUserPwd=Request.Form("TxtUserPwd")
lStrDbConnStr="DSN=log"
Set lRecItem=Server.CreateObject("ADODB.RecordSet")
lStrSQL="SELECT*FROM Tbl_StudentInfo WHERE (StudentID=" & lUserId &")"
lRecItem.open LStrSQL, LStrDbConnStr, adopenStatic
If lRecItem.BoF OR lRecItem.EOF Then
lErrNo=1
"没有该用户，请与系统管理员联系注册
ElseIf lRecItem.Fields("StudentPwd")=lUserPwd Then
Session("StudentID")=lUserId
Session("StudentName")=lrecitem.Fields("StudentName")
Else
lErrNo=2
"用户口令输入错误
End If
lRecItem.Close
Set lRecItem=Nothing

If lErrNo=0 Then
Response.Redirect "SysMain.Asp"
End If
Case "新用户注册"
Response.Redirect "LogRegist.Asp"
End Select

Select Case lErrNo
Case 1
lErrMes="没有该用户，请先注册"
Case 2
lErrMes="用户口令输入错误"
End Select
Response.Write "<Center><BIG>" & lErrMes & "</BIG></Center>"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>用户登陆</TITLE>
</HEAD>
<BODY bgColor=silver>
<FORM action="LogCheck.Asp" method=POST id=FormLog name=FormLog>
<P style="FONT-FAMILY:宋体">
<TABLE align=center border=l cellPadding=l cellSpacing=l>
<tr>
<TD align=middle>
<P> </P>
<P>用户帐号<input id=TxtUserID name=TxtUserID></P>
<p>用户口令
<INPUT id=TxtUserPwd name=TxtUserPwd type=password></P>
<P> </P></TD></TR>
<TR>
<TD align=middle>
<INPUT id=CmdLogin name=CmdFun type=submit value="登录">
  
<INPUT id=CmdRegist name=CmdFun type=submit value="新用户注册"></td>
</TR></TABLE></P>
</FORM>
</BODY>
</HTML>
3登录页面
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <TITLE>站点主页</TITLE>
</HEAD>

<BODY bgColor=skyblue>
<BR><BR>
<FONT color=crimson face=宋体 size=6>
<CENTER>欢迎你来到我们的站点！</center>
</FONT><BR>  
<IMG alt="" src="file://d:\hljtweb\images\1.gif">
<BR><BR><BR><BR>
<FONT color=navy face=宋体 size=4>
<CENTER>设计研制</center></FONT>
<BR><BR>
<FONT color=navy face=宋体 size=3>
<CENTER>E_Mail:
<A href="mailto:yangyanbo@163.com">yangyanbo@163.com</A>
</CENTER>
</FONT>
</BODY>
</HTML>

恳请各位大侠不吝赐教！！小弟感激不尽！！

NO.1 作者： ice241018

你的太长，来过简单的
//数据库连接程序
<% dim txt_projname,user_name
txt_projname=request.form("txt_projname")
user_name=request.form("user_name")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from addressbook where txt_projname=" & txt_projname & " and user_name=" & user_name & "",conn,1,3
if rs.bof=false and rs.eof=false then
response.write "<script language=javascript>alert(温馨提示：您已经注册了你的信息，请等待我们审核，谢谢！);history.go(-1);</script>"
else
rs.addnew
rs("user_name")=request("user_name")
rs("boardid")=request("boardid")
rs("txt_projname")=request("txt_projname")
rs("txt_louhao")=request("txt_louhao")
rs("txt_fangjianhao")=request("txt_fangjianhao")
rs("txt_company")=request("txt_company")
rs("txt_qq")=request("txt_qq")
rs("txt_email")=request("txt_email")
rs("txt_mobilcode")=request("txt_mobilcode")
rs("txt_remark")=request("txt_remark")
rs("password1")=request("password1")
rs("password2")=request("password2")
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert(温馨提示：您的资料系统已经成功保存，谢谢！);history.go(-1);</script>"
response.End
end if
%>

NO.2 作者： emhuangzi

<table border="0" cellpadding="3" cellspacing="0" width="95%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%">
<form method="POST" action="reg_2.asp">
姓名<input type="text" name="user_name" size="20" class=input><br>
<Br>
密码<input type="password" name="user_pass" size="20" class=input><br>
<br>
重复密码<input type="password" name="user_pass2" size="20" class=input><br>
<br>
<span lang="zh-cn">E-mail</span><input type="text" name="user_mail" size="20" class=input><br>
<br>
Oicq<span lang="zh-cn"></span><input type="text" name="user_oicq" size="20" class=input><br>
<Br>
地址<input type="text" name="user_adds" size="20" class=input><br>
<Br>
电话<input type="text" name="user_tel" size="20" class=input><br>
<Br>
邮编<input type="text" name="user_postcode" size="20" class=input><br>
<Br>
<span lang="zh-cn">你的真实姓名</span><input type="text" name="user_realname" size="20" class=input><br>
<br>
密码保护问题<input type="text" name="q" size="20" class=input><br>
<br>
密码保护答案<span lang="zh-cn"></span><input type="text" name="a" size="20" class=input><br>
<br><p align="center"><input type="submit" value="提交" name="B1" class=input>
<span lang="zh-cn"> 
</span><input type="reset" value="重写" name="B2" class=input>
</p>
</form></td>
</tr>
<tr>
<td width="100%">
<p align="center">
</td>
</tr>
</table>

不要忘了数据库连接文件(access)
<%
dim conn
dim connstr
dim db
db="database/data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
如果你的服务器采用较老版本Access驱动，请用下面连接方法
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
%>

NO.3 作者： lianxiangpanjin

好像是你的确定按钮没有放在　表单里

·jsp中，怎么进行文件名的改名操作新手分不多，解决问题就给分(80分) »显示摘要«

摘要： jsp中，怎么进行文件名的改名操作？新手分不多，解决问题就给分(80分) 现在上传了文件，但为了防止重名和安全起见需要改名，如：e:\adbc.doc 改为：2342342.doc,名称没有问题，就是具体怎么实现改名操作，file类中没有改名操作啊。。555 ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：