[求助]asp添加帐号使用MD5无法完成
<P>我加MD5入无法实现。。。 <BR>哪位高手帮忙看下啊。。。<BR> <BR>出错出在UserPass没有写入进去。。。</P><P>代码如下。。。 </P>
<P><% <BR>If Request.Form("Submit") <> "" Then <BR>Dim sql,Rs <BR>Dim errMessage <BR>errMessage="" </P>
<P><BR>Dim var_UserName <BR>var_UserName = Request.Form("ctrl_UserName") </P>
<P>Dim var_UserPass <BR>UserPass = md5(Trim(Request.Form("ctrl_UserPass"))) </P>
<P>Dim var_Ction <BR>var_Ction = Request.Form("ctrl_Ction") </P>
<P>Dim var_Ction2 <BR>var_Ction2 = Request.Form("ctrl_Ction2") </P>
<P>Dim var_Ction3 <BR>var_Ction3 = Request.Form("ctrl_Ction3") </P>
<P>Dim var_name <BR>var_name = Request.Form("ctrl_name") </P>
<P><BR>If (errMessage <> "") Then <BR>Call Javascript("showMsg('"&replace(errMessage,"<br>","\n\n")&"'); goUrl('-1','')") <BR>Response.End() <BR>Else <BR>sql = "select top 1 * from [admin]" <BR>Set Rs = Server.CreateObject("ADODB.Recordset") <BR>Rs.Open sql,conn,3,2 <BR>Rs.AddNew </P>
<P>If var_UserName <> "" Then Rs("UserName") = var_UserName <BR>If var_UserPass <> "" Then Rs("UserPass") = var_UserPass <BR>If var_Ction <> "" Then Rs("Ction") = var_Ction <BR>If var_Ction2 <> "" Then Rs("Ction2") = var_Ction2 <BR>If var_Ction3 <> "" Then Rs("Ction3") = var_Ction3 <BR>If var_name <> "" Then Rs("name") = var_name </P>
<P>Rs.Update <BR>Rs.Close() <BR>Set Rs = Nothing <BR>Call Javascript("showMsg('添加成功！'); goUrl('"¤tAspFileFullName()&"','')") <BR>End If <BR>End If </P>
<P><BR>%></P>
页:
[1]