28,408
社区成员
发帖
与我相关
我的任务
分享关于数据库的问题!
<%@ LANGUAGE="VBSCRIPT" %>
<%
userid=request.form("id")
psd=request.form("psd")
if userid="" or psd="" then
Response.Write("请返回,请重新输入!")
Response.End
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
path=Server.MapPath("user.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&path
sql="select * from 用户 where 用户名='"&userid&"'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
set ds=Server.CreateObject("ADODB.Recordset")
ds.open "用户",conn,1,3
ds.AddNew
ds("用户名")=userid
ds("密码")=psd
ds.Update
ds.close
conn.close
else
response.redirect"log.htm"
end if
%>
<html>
<head>
<title><%=userid%></title>
</head>
<body>
<center>您以注册成功,请从此登录!</center>
<p align="center">
<p align="center"</p>
<p align="center"><b><font face="黑体" size="6">请输入用户名和密码</font></b></p>
<p align="center"></p>
<form method="post" action="check.asp">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="42%" align="right">用户名:</td>
<td width="58%" ><input type="text" name="id" size="20" value=""></td>
</tr>
<tr>
<td width="42%" align="right"> 密 码:</td>
<td width="58%"><input type="password" name="psd" size="20" value=""></td>
</tr>
<tr>
<td width="42%"></td>
<td width="58%"></td>
</tr>
</table>
<p align="center">
<input type="submit" value="提交" name="提交">
<input type="reset" value="清除" name="清除">
</p>
</form>
</body>
</html>
请问如果将<%@ LANGUAGE="VBSCRIPT" %>改为<%@ LANGUAGE="JAVASCRIPT" %>
如何写！请指教！
<%
userid=request.form("id")
psd=request.form("psd")
if userid="" or psd="" then
Response.Write("请返回,请重新输入!")
Response.End
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
path=Server.MapPath("user.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&path
sql="select * from 用户 where 用户名='"&userid&"'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
set ds=Server.CreateObject("ADODB.Recordset")
ds.open "用户",conn,1,3
ds.AddNew
ds("用户名")=userid
ds("密码")=psd
ds.Update
ds.close
conn.close
else
response.redirect"log.htm"
end if
%>
<html>
<head>
<title><%=userid%></title>
</head>
<body>
<center>您以注册成功,请从此登录!</center>
<p align="center">
<p align="center"</p>
<p align="center"><b><font face="黑体" size="6">请输入用户名和密码</font></b></p>
<p align="center"></p>
<form method="post" action="check.asp">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="42%" align="right">用户名:</td>
<td width="58%" ><input type="text" name="id" size="20" value=""></td>
</tr>
<tr>
<td width="42%" align="right"> 密 码:</td>
<td width="58%"><input type="password" name="psd" size="20" value=""></td>
</tr>
<tr>
<td width="42%"></td>
<td width="58%"></td>
</tr>
</table>
<p align="center">
<input type="submit" value="提交" name="提交">
<input type="reset" value="清除" name="清除">
</p>
</form>
</body>
</html>
请问如果将<%@ LANGUAGE="VBSCRIPT" %>改为<%@ LANGUAGE="JAVASCRIPT" %>
如何写！请指教！
...全文
请发表友善的回复…
发表回复
xingworld 2002-06-17
- 打赏
- 举报
不好把，这样多省事，
weny_zhang 2002-06-17
- 打赏
- 举报
1：dim 改为var;
2：语句改为 Response.Redirect( "www.asp")的形式，同时注意大小写
3：改变if-else等语法
2：语句改为 Response.Redirect( "www.asp")的形式，同时注意大小写
3：改变if-else等语法
zyhowe 2002-06-17
- 打赏
- 举报
把所有的语句均写成
document.write("...")
document.write("...")
guozz1234 2002-06-17
- 打赏
- 举报
你可以把检验用户名和密码单独写到一个ASP页中，该页中只是检测用户名和口令
<%@ Language=VBScript %>
<%
检测。。。。。
IF 存在 THEN
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
alert("用户名或者密码错误 ！")
window.close()
//-->
</SCRIPT>
<%
else
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
window.close()
//-->
</SCRIPT>
<%
end if
%>
<%@ Language=VBScript %>
<%
检测。。。。。
IF 存在 THEN
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
alert("用户名或者密码错误 ！")
window.close()
//-->
</SCRIPT>
<%
else
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
window.close()
//-->
</SCRIPT>
<%
end if
%>
Iris 2002-06-17
- 打赏
- 举报
Response.Write "<script language='javascript'>location.href=window.history.back(-1); alert('用户名已存在!');</script>"
mjjun_china 2002-06-17
- 打赏
- 举报
我的程序是正确的！
我的意思是在如果注册的用户名以有了，那我如何象用JAVASCRIPT的alert("用户名")那样在VBSCRIPT下写一个弹出的警告窗口.
我的意思是在如果注册的用户名以有了，那我如何象用JAVASCRIPT的alert("用户名")那样在VBSCRIPT下写一个弹出的警告窗口.
llc1981 2002-06-17
- 打赏
- 举报
错了，应该是recordset找相同的记录，刚才没有看清楚将ds改为rs.open "select "&用户名&"form "&表名&" where yonghuming="&userid
然后用
if rs.EOF then
不存在加记录
else
存在返回
end if 判断
然后用
if rs.EOF then
不存在加记录
else
存在返回
end if 判断
llc1981 2002-06-17
- 打赏
- 举报
ds.open "用户",conn,1,3
改为用sql语句查找的语句，看是否有记录，判断ds.EOF是否为真，然后看是否该加记录
改为用sql语句查找的语句，看是否有记录，判断ds.EOF是否为真，然后看是否该加记录
mjjun_china 2002-06-17
- 打赏
- 举报
因为我想在如果用户名以有的情况下弹出一个警告框，但是用VBSCRIPT,我不知道如何写，请指教！
