动态产生变量

2022-07-15 80酷酷网 80kuku.com

　　变量|动态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">
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2"><B>Dynamically Generate
Variables </B>

Variable Name: </FONT>
<INPUT type="text" name="variablename">

<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Request Type: </FONT>
<INPUT type="radio" name="requesttype" value="querystring" checked>
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Querystring</FONT>
<INPUT type="radio" name="requesttype" value="form">
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Form </FONT>

<INPUT type="submit" name="Submit" value="Submit">
</FORM>
<%
else
%>
<TITLE>Dynamically Generate Variables - DONE</TITLE>
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2"><B>Dynamically Generate
Variables</B></FONT> - 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) &a