在页面方法中加一句
Public Function UserReg(uname, pass)
Set Cm = Server.CreateObject("Adodb.Command")
With Cm
.CommandType = 4
.ActiveConnection = Conn
.CommandText = "Web_UserReg"
.parameters(1) = uname
.parameters(2) = pass
.parameters(3) = ""
.Execute()
UserReg = .parameters(3)
End With
Set Cm = Nothing
End Function
在引用时
dim text
text=conn. UserReg
response.write text
OK 结贴走人 还是 自己靠得住、、、