动态产生变量

动态产生变量

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 动态产生变量 (http://www.webasp.net/article/1/900.htm)

-- 作者：未知
-- 发布日期： 2003-04-17

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. '**************************************

<HTML>
<%
' 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
%><TITLE>Dynamically Generate Variables</TITLE>
<BODY bgcolor="#FFFFFF">
<FORM method="post" action="dyn_gen_variables.asp?create=1">
Dynamically Generate
Variables 
 
Variable Name: 
<INPUT type="text" name="variablename">
 
Request Type: 
<INPUT type="radio" name="requesttype" value="querystring" checked>
Querystring
<INPUT type="radio" name="requesttype" value="form">
Form 
 
<INPUT type="submit" name="Submit" value="Submit">
</FORM>
<%
else
%>
<TITLE>Dynamically Generate Variables - DONE</TITLE>
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
%>
</BODY>
</HTML>

webasp.net