将ASP的DEBUG变得简朴的两个函数-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

将ASP的DEBUG变得简朴的两个函数
<%
\\\'---------------------------------------------------------------------------
\\\' 程序作用:打印request.form输入的所有值
\\\'---------------------------------------------------------------------------
Response.Write FormData()
function FormData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrDebug
\\\' Count Form
llngMaxFieldIndex = Request.Form.Count

\\\' Let user know if Form Do Not exist
if llngMaxFieldIndex = 0 Then
FormData = "Form data is empty."
Exit function
End if

\\\' Begin building a list of all Form
lstrDebug = "<OL>"

\\\' Loop through Each Form
For llngFieldIndex = 1 To llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex))

\\\' Count the values
llngMaxValueIndex = Request.Form(llngFieldIndex).Count

\\\' if the Field doesn\\\'t have multiple values ...
if llngMaxValueIndex = 1 Then
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex))
\\\' Else Loop through Each value
Else
lstrDebug = lstrDebug & "<OL>"
For llngValueIndex = 1 To llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Next
lstrDebug = lstrDebug & "</OL>"
End if
lstrDebug = lstrDebug & "</LI>"
Next
lstrDebug = lstrDebug & "</OL>"
\\\' Return the data
FormData = lstrDebug

End function

%>

<%
\\\'-------------------------------------------------------------------------
\\\' 函数功能：输出所有输入request.querystring值，用于调试！
\\\'-------------------------------------------------------------------------

Response.Write QueryStringData()
function QueryStringData()
Dim llngMaxFieldIndex
Dim llngFieldIndex
Dim llngMaxValueIndex
Dim llngValueIndex
Dim lstrDebug
\\\' Count QueryString
llngMaxFieldIndex = Request.QueryString.Count

\\\' Let user know if QueryString Do Not exist
if llngMaxFieldIndex = 0 Then
QueryStringData = "QueryString data is empty."
Exit function
End if

\\\' Begin building a list of all QueryString
lstrDebug = "<OL>"

\\\' Loop through Each QueryString
For llngFieldIndex = 1 To llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex))

\\\' Count the values
llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count

\\\' if the Field doesn\\\'t have multiple values ...
if llngMaxValueIndex = 1 Then
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex))
\\\' Else Loop through Each value
Else
lstrDebug = lstrDebug & "<OL>"
For llngValueIndex = 1 To llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Next
lstrDebug = lstrDebug & "</OL>"
End if
lstrDebug = lstrDebug & "</LI>"
Next
lstrDebug = lstrDebug & "</OL>"
\\\' Return the data
QueryStringData = lstrDebug

End function

%>

返回类别: 教程
上一教程: 具体讲解ASP脚本循环语句
下一教程: 用ASP做一个分页程序

您可以阅读与"将ASP的DEBUG变得简朴的两个函数"相关的教程:
· ASP用于分页的两个函数
· ASP的两个简朴的检测外部提交函数
· 用CDONTS发送邮件的两个函数
· 实现网页密码验证的两个基本方式
· ASP中和星期有关的自定义函数


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接