动态产生变量

发表于:2007-06-30来源:作者:点击数: 标签:
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 st
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.Pl.net-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><BR>
<BR>
Variable Name: </FONT>
<INPUT type="text" name="variablename">
<BR>
<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><BR>
<BR>
<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<BR>
<BR>
<BR>
<%
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 & "<BR>"
myvaroutput2 = myvaroutput2 & variablename & mycounter & " = TRIM(" & variablename & mycounter & ")"
myvaroutput2 = myvaroutput2 & "<BR>"
mycounter = mycounter + 1
loop
response.write "<FONT face=‘’arial‘’ size=‘’2‘’>"
response.write "‘’ Get VARIABLES AND REPLACE APOSTROPHES With Double APOSTROPHES<BR>"
response.write myvaroutput
response.write "<BR><BR>"
response.write "‘’ TRIM ALL TEH SPACES OUT OF THE VARIABLES<BR>"
response.write myvaroutput2
response.write "</FONT>"
%> <%
End If
%>
</BODY>
</HTML>

原文转自:http://www.ltesting.net