谁能告诉我三维免费空间怎么做登录页面？

进入此贴详细完整版>> 谁能告诉我三维免费空间怎么做登录页面？中华游戏网 > 电脑技术交流

主题：谁能告诉我三维免费空间怎么做登录页面？
作者：dnvc
时间：2011-06-23 19:04

我的代码绝对没错，不过就是提示错误
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Redirect if username exists
MM_flag = "MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  Dim MM_rsKey
  Dim MM_rsKey_cmd

  MM_dupKeyRedirect = "errro3.asp"
  MM_dupKeyUsernameValue = CStr(Request.Form("u_name"))
  Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command")
  MM_rsKey_cmd.ActiveConnection = MM_conn_STRING
  MM_rsKey_cmd.CommandText = "SELECT u_name FROM dbo.user_biao WHERE u_name = ?"
  MM_rsKey_cmd.Prepared = true
  MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 50, MM_dupKeyUsernameValue) ' adVarChar
  Set MM_rsKey = MM_rsKey_cmd.Execute
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
If Trim(Request.Form("yzm"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("yzm")) Then
Response.Redirect("errro2.asp")
response.end
end if
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_conn_STRING
    MM_editCmd.CommandText = "INSERT INTO dbo.user_biao (u_name, u_pass, u_zssm, u_xb, u_nialin, u_tel, u_qq, u_email, ip) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("u_name")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, md5(Request.Form("u_pass"))) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("u_zssm")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("u_xb")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("u_nialin"), Request.Form("u_nialin"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("u_tel"), Request.Form("u_tel"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("u_qq"), Request.Form("u_qq"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("u_email")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("ip")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "hyzhuce_cg.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
.srk {
background-color: #D6D3CE;
height: 22px;
width: 180px;
}
</style>
<script>
var xmlHttp = false;
try {
  xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
  try {
    xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
  } catch (e2) {
    xmlHttp = false;
  }
}
if (!xmlHttp && typeof XMLHttpRequest != 'undefined') {
  xmlHttp = new XMLHttpRequest();
}

function callServer() {
  var name = document.getElementById("u_name").value;
  if ((name == null) || (name == "")) return;
  var url = "check.asp?name=" + escape(name);
  xmlHttp.open("GET", url, true);
  xmlHttp.onreadystatechange = updatePage;
  xmlHttp.send(null);
}

function updatePage() {
  if (xmlHttp.readyState < 4) {
username.innerHTML="正在检测用户名是否可用......";
  }
  if (xmlHttp.readyState == 4) {
    var response = xmlHttp.responseText;
username.innerHTML=response;
  }
}
</script>

<script>
function jczc()
{
if(form1.u_name.value=="")
{
  alert("请填写用户名");
  form1.u_name.focus();
  return false;
}
  if(form1.u_name.value.length<6||form1.u_name.value.length>20)
{
  alert("你的用户名长度应该在6到20个字符之间");
  form1.u_name.focus();
  return false;
}
if(form1.u_pass.value=="")
{
  alert("请填写密码");
  form1.u_pass.focus();
  return false;
}
  if(form1.u_pass.value.length<6||form1.u_pass.value.length>20)
{
  alert("你的密码长度应该在6到20个字符之间");
  form1.u_pass.focus();
  return false;
}
if(form1.u_pass2.value!=form1.u_pass.value)
{
  alert("你的密码不一致");
  form1.u_pass2.focus();
  return false;
}
if(form1.u_xb[0].checked==false&&form1.u_xb[1].checked==false)
     {
    alert("请选择你的性别！");
    form1.u_xb[0].focus();
        return false;
       }
  if ( document.form1.u_email.value=="") {
     alert("请填写你的电子邮件地址！");
     form1.u_email.focus()
     return false
     }
     var email = document.form1.u_email.value
     var is_error = false
     var pn_0 = email.indexOf("@")
     var pn_1 = email.indexOf(".",pn_0)
     var pn_2 = email.length
     if (pn_0<1 || pn_1<pn_0+2 || pn_1+2>pn_2) is_error=true
     if (is_error) {
     alert("请输入正确的邮件地址，密码丢失后可用此找回！");
     document.form1.u_email.focus()
     return false
     }

return true;
}
</script>
<script>
function getcode()
{
document.getElementById("safecode").src="Safecode.asp?"+Math.random();
}
function voice()
{
if(document.all&&!window.opera)
  document.getElementById("voices").Filename="voice.asp?"+Math.random();
else
  alert("暂时只有IE浏览器支持");
}
function chkpwd(obj){
  var t=obj.value;
  var id=getResult(t);

  //定义对应的消息提示
  var msg=new Array(4);
  msg[0]="密码过短。";
  msg[1]="密码强度差。";
  msg[2]="密码强度良好。";
  msg[3]="密码强度高。";

  var sty=new Array(4);
  sty[0]=-45;
  sty[1]=-30;
  sty[2]=-15;
  sty[3]=0;

  var col=new Array(4);
  col[0]="gray";
  col[1]="red";
  col[2]="#ff6600";
  col[3]="Green";

  //设置显示效果
  var bImg="images/pwdlen.gif";
  var sWidth=150;
  var sHeight=15;
  var Bobj=document.getElementById("chkResult");

  Bobj.style.fontSize="12px";
  Bobj.style.color=col[id];
  Bobj.style.width=sWidth + "px";
  Bobj.style.height=sHeight + "px";
  Bobj.style.lineHeight=sHeight + "px";
  Bobj.style.background="url(" + bImg + ") no-repeat left " + sty[id] + "px";
  Bobj.style.textIndent="20px";
  Bobj.innerHTML= msg[id];
}

//定义检测函数,返回0/1/2/3分别代表无效/差/一般/强
function getResult(s){
  if(s.length < 4){
   return 0;
  }
  var ls = 0;
  if (s.match(/[a-z]/ig)){
   ls++;
  }
  if (s.match(/[0-9]/ig)){
   ls++;
  }
   if (s.match(/(.[^a-z0-9])/ig)){
   ls++;
  }
  if (s.length < 6 && ls > 0){
   ls--;
  }
  return ls
}
</script>
</head>

<body>
<form onSubmit="jczc()" method="post" action="<%=MM_editAction%>" name="form1">
  <table align="center">
    <tr valign="baseline">
      <td nowrap align="right">用户名:</td>
      <td><input name="u_name" type="text" id="u_name" onChange="callServer()" class="srk" value=""><div id="username"></div></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">密码:</td>
      <td><input name="u_pass" onChange="chkpwd(this)"  type="password" class="srk" value="" size="32"><div id="chkResult"></div></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">确认密码</td>
      <td><input name="u_pass2" type="password" class="srk" id="u_pass2"></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">真实姓名:</td>
      <td><input name="u_zssm" type="text" class="srk" value="" size="32"></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">姓别:</td>
      <td><p>
        <label>
          <input type="radio" name="u_xb" value="男" id="RadioGroup1_0">
          男</label>

        <label>
          <input type="radio" name="u_xb" value="女" id="RadioGroup1_1">
          女</label>
        <br>
      </p></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">年龄:</td>
      <td><input name="u_nialin" type="text" class="srk" value="" size="32"></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">电话:</td>
      <td><input name="u_tel" type="text" class="srk" value="" size="32"></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">QQ号:</td>
      <td><input name="u_qq" type="text" class="srk" value="" size="32"></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">邮箱:</td>
      <td><input name="u_email" type="text" class="srk" value="" size="32"></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">验证码:</td>
      <td><input name="yzm" type="text" id="yzm" size="4">
      <img src="safecode.asp" name="safecode" align="absbottom" id="safecode" />[<a href="#" onclick="getcode();" title="点击刷新验证码">刷新</a>][<a href="#" onclick="voice();" title="点击语音听取验证码">语音</a>]
<object classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" class="OBJECT" id="voices" style="display:none;">
<param name="Filename" value="" />
</object></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right"><input name="ip" type="hidden" id="ip" value="<%= Request.ServerVariables("REMOTE_ADDR")
%>"></td>
      <td><input type="submit" value="插入记录"></td>
    </tr>
  </table>
  <input type="hidden" name="MM_insert" value="form1">
</form>

</body>
</html>

1楼:dnvc(2011-06-23 19:06)

高手加我QQ 940857703，帮我做做嘛

2楼:dnvc(2011-06-23 19:07)

噢对了，我的网站注册页面是 http://35free.net/dnvc/huiyuanzhuce.html

3楼:白々哉(2011-06-23 19:13)

哥不会

进入此贴详细完整版>> 谁能告诉我三维免费空间怎么做登录页面？返回顶部