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