同一asp页面中如何取得定义的函数值
来源:百度知道 编辑:UC知道 时间:2024/05/16 23:24:35
asp代码出下:
<script language="vbscript" id="clientEventHandlersVBS">
dim strAccount
dim strSignature
Function GetSignature() '客户端脚本,用于获取用户帐号与签名
on error resume next
Set RTXCRoot = RTXAX.GetObject("KernalRoot") ' 获取KernalRoot对象
Set rtcData = RTXCRoot.Sign '获取签名,并把它赋给rtcData
strAccount = RTXCRoot.Account '获取用户帐号
strSignature = rtcData.GetString("Sign") '获取rtcData对象的Sign 的内容,也就是用户签名
If Err.Number <> 0 Then
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear ' Clear the error.
End If
End Function
</script>
<%
'服务器端代码,用于验证签名
on error resume next
Set RootObj = createobject("RTXSAPIRootObj.RTXSAPIRootObj") '创建Root对象
Set UserAuthObj2 =RootO
<script language="vbscript" id="clientEventHandlersVBS">
dim strAccount
dim strSignature
Function GetSignature() '客户端脚本,用于获取用户帐号与签名
on error resume next
Set RTXCRoot = RTXAX.GetObject("KernalRoot") ' 获取KernalRoot对象
Set rtcData = RTXCRoot.Sign '获取签名,并把它赋给rtcData
strAccount = RTXCRoot.Account '获取用户帐号
strSignature = rtcData.GetString("Sign") '获取rtcData对象的Sign 的内容,也就是用户签名
If Err.Number <> 0 Then
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear ' Clear the error.
End If
End Function
</script>
<%
'服务器端代码,用于验证签名
on error resume next
Set RootObj = createobject("RTXSAPIRootObj.RTXSAPIRootObj") '创建Root对象
Set UserAuthObj2 =RootO
我认为必须先要用GET或POST方法,然后在服务器端产生一个临时页,再在用户端产生一个临时cookies,然后用response.redirect方法重定位到那个临时页。
客户端与服务端的交互应该通过GET或POST方法完成。具体方法去百度一下吧。
补充:
尽管这两段代码是在同一个页面内,<script language="vbscript" id="clientEventHandlersVBS"> ……</script>只是被下载到客户端,然后在客户端执行,所以它是没有办法与服务器端的脚本交互的。
你的目的应该是首先产生一个登录验证页面,然后由用户提交,再到服务器验证。所以必须要用GET或POST方法,中间肯定会有个网络传输的过程。
没看懂。。