动态产生变量-ASP技术-3P代码网
繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP技巧 >> 动态产生变量

动态产生变量

2004-10-01 08:26:10  作者:  来源:互联网  浏览次数:19  文字大小:【】【】【
简介:The purpose of this application is to make it easier to caputre data from forms. I know when I create forms I hate typing in all the request.form information in my code, so I decided to write a w...
关键字:变量 动态

The purpose of this application is to make it easier to caputre data from forms. I know when I create

forms I hate typing in all the request.form information in my code, so I decided to write a way to

dynamically create the request which strip the variable for apostrophes and also trims the variable

Can't Copy and Paste this?

Click here for a copy-and-paste friendly version of this code!

'**************************************

' for :Dynamically Generate Variables

'**************************************

http://www.chernoblechicken.com

code:

Can't Copy and Paste this?

Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:

By using this code, you agree to the following terms...

1) You may use this code in your own programs (and may compile it into a program and distribute it in

compiled format for langauges that allow it) freely and with no charge.

2) You MAY NOT redistribute this code (for example to a web site) without written permission from the

original author. Failure to do so is a violation of copyright laws.

3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.

4) You will abide by any additional copyright restrictions which the author may have placed in the code or

code's description.

'**************************************

' Name: Dynamically Generate Variables

' Description:The purpose of this applic

' ation is to make it easier to caputre da

' ta from forms. I know when I create form

' s I hate typing in all the request.form

' information in my code, so I decided to

' write a way to dynamically create the re

' quest which strip the variable for apost

' rophes and also trims the variable

' By: Anthony J. Biondo Jr

'

' Returns:returns text which you can cop

' y and paste into you asp application.

'

'This code is copyrighted and has ' limited warranties.Please see http://w

' ww.Planet-Source-Code.com/xq/ASP/txtCode

' Id.6334/lngWId.4/qx/vb/scripts/ShowCode.

' htm 'for details. '**************************************

<%

' DYNAMICALLY GENERATE REQUEST

' Description: This script will allow yo

' u to dynamically generate variables for

' the huge forms that no one likes to crea

' te.

' How to use: Type in the variable name

' select querystring or form and hit submi

' t. To make more variables increase the h

' ow many count.

'

' Coder: Anthony J Biondo Jr. (anthonyb@

' inbridesburg.com)

'

' HOW MANY VARIABLES TO CREATE

how_many=50

mycreate = request.querystring("create")

If mycreate = "" Then

%>Dynamically Generate Variables

Dynamically Generate

Variables


Variable Name:


Request Type:

Querystring

Form


<%

else

%>

Dynamically Generate Variables - DONE

Dynamically Generate

Variables - DONE



<%

variablename = request.form("variablename")

requesttype = request.form("requesttype")

mycounter = 0

Do While mycounter < how_many

myvaroutput = myvaroutput & variablename & mycounter & " = replace(request." & requesttype & "(" & chr

(34) & variablename & mycounter & chr(34) & "), " & chr(34) & "'" &chr(34) & ", " &chr(34) & "''" & chr

(34) & ")"

myvaroutput = myvaroutput & "
"

myvaroutput2 = myvaroutput2 & variablename & mycounter & " = TRIM(" & variablename & mycounter & ")"

myvaroutput2 = myvaroutput2 & "
"

mycounter = mycounter + 1

loop

response.write ""

response.write "' Get VARIABLES AND REPLACE APOSTROPHES With Double APOSTROPHES
"

response.write myvaroutput

response.write "

"

response.write "' TRIM ALL TEH SPACES OUT OF THE VARIABLES
"

response.write myvaroutput2

response.write ""

%> <%

End If

%>

责任编辑:admin
相关文章