网络编程
位置:首页>> 网络编程>> Asp编程>> 如何动态产生变量?

如何动态产生变量?

 来源:asp之家 发布时间:2009-11-18 16:33:00 

标签:动态,变量,asp

我们可以用动态产生变量的方法,从表格里捕捉数据,动态地创造“剥离”变量引号并且“清理”它,见下列代码,我们只需键入变量名称,选择 querystring 或form,然后按下“提交”,它会按要求帮你产生更多的变量哦。

<HTML> 
  <% 
  how_many=50 
  ' 创建多少个变量 
  mycreate = request.querystring("create") 
  If mycreate =""Then 
  %><TITLE>闪亮日子之动态产生变量 - aspxhome.com</TITLE> 
  <BODY bgcolor="#FFFFFF"> 
  <FORM method="post"action="dyn_gen_variables.asp?create=1"> 
  <FONT face="Verdana, Arial, Helvetica, sans-serif"size="2"><B>动态产生变量</B><BR> 
  <BR> 
  变量名称:</FONT> 
  <INPUT type="text"name="variablename"> 
  <BR> 
  <FONT face="Verdana, Arial, Helvetica, sans-serif"size="2">请求类型:</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="提交"> 
  </FORM> 
  <% 
  else 
  %> 
  <TITLE>闪亮日子之动态产生变量处理结果</TITLE> 
  <FONT face="Verdana, Arial, Helvetica, sans-serif"size="2"><B>动态产生变量完成</B></FONT> <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"获取变量并用双引号替代单引号<BR>" 
  response.write myvaroutput 
  response.write"<BR><BR>" 
  response.write"清除变量里的所有空格<BR>" 
  response.write myvaroutput2 
  response.write"</FONT>" 
  %><% 
  End If 
  %> 
  </BODY> 
  </HTML>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com