Easy Debugging of Variables by Charles Carroll
This page demonstrates how you can print several variables in one step without resorting to:
<%
response.write "fname=<b>" & fname & "</b><br>"
response.write "lname=<b>" & lname & "</b><br>"
response.write "x=<b>" & x & "</b><br>"
response.write "y=<b>" & y & "</b><br>"
%>
by taking advantage of VB Eval and encapsulating it into a subroutine to do all the work for you.
<Test Script Below>
<html><head>
<title>debug1.asp</title>
</head><body bgcolor="#FFFFFF">
<%
fname="Jennifer"
lname="Jones"
x=9
y=7
Call ShowVars("fname,lname,x,y")
%>
</body></html>
<!--#include file="lib_debug1.asp"-->
The library that does the work:
<%
SUB ShowVars(parmVars)
dim myparameters
myparameters=SPLIT(parmVars,",")
parmcount=ubound(myparameters)
for counter=0 to parmcount
thisvar=myparameters(counter)
strexec=thisvar
strexec=eval(strexec)
strall=strall & "<b>" & thisvar & "</b>=" & strexec & "<br>"
next
response.write strall
END SUB
%>
This page demonstrates how you can print several variables in one step without resorting to:
<%
response.write "fname=<b>" & fname & "</b><br>"
response.write "lname=<b>" & lname & "</b><br>"
response.write "x=<b>" & x & "</b><br>"
response.write "y=<b>" & y & "</b><br>"
%>
by taking advantage of VB Eval and encapsulating it into a subroutine to do all the work for you.
<Test Script Below>
<html><head>
<title>debug1.asp</title>
</head><body bgcolor="#FFFFFF">
<%
fname="Jennifer"
lname="Jones"
x=9
y=7
Call ShowVars("fname,lname,x,y")
%>
</body></html>
<!--#include file="lib_debug1.asp"-->
The library that does the work:
<%
SUB ShowVars(parmVars)
dim myparameters
myparameters=SPLIT(parmVars,",")
parmcount=ubound(myparameters)
for counter=0 to parmcount
thisvar=myparameters(counter)
strexec=thisvar
strexec=eval(strexec)
strall=strall & "<b>" & thisvar & "</b>=" & strexec & "<br>"
next
response.write strall
END SUB
%>
相关信息
- 关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 管理登陆
- Copyright © 2003-2007 ZhuYe123.COM. All Rights Reserved . 粤ICP备05072659号
- 致力于中国个人网站发展,我们一直在努力!