ASP 一分钟=半天 之,自动生成:username=trim(request("username"))......功能"指引性"超强

原创 2006年05月30日 19:15:00

<!--本软件的诞生的原因:证明:只要你用心,那么:一分种 <=> 半天-->
<title>一分钟=半天</title>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
body,td,th {
 font-family: 宋体;
 font-size: 14px;
}
.STYLE2 {color: #FFFF00}
-->
</style>
<%
action=trim(request("action"))
username=trim(request("username"))
password=trim(request("password"))
ip=trim(request("ip"))
tablename=trim(request("tablename"))
dataname=trim(request("dataname"))
selname=trim(request("selname"))
%>
<%if action="" then %>
<div>
  <form name="form1" method="post" action="?action=two">
    <table width="277" height="225" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#000000">
      <tr>
        <td height="62" colspan="2"><table width="100%">
            <tr>
              <td height="25" class="STYLE1"><div align="center" class="STYLE2">中科新网初级程序设计师--柳永法制作</div></td>
            </tr>
            <tr>
              <td height="25" class="STYLE1"><label>
                <div align="center">
                  <input name="selname" type="radio" value="access" checked>
                  Access&nbsp;&nbsp;&nbsp;&nbsp;
                  <input type="radio" name="selname" value="sqlserver">
                  SQL Server</div>
                </label></td>
            </tr>
            <tr>
              <td height="25" class="STYLE1">&nbsp;</td>
            </tr>
          </table></td>
      </tr>
      <tr>
        <td width="70" height="25"><div align="right"><span class="STYLE1">UserName:</span></div></td>
        <td width="204" height="25"><input name="username" type="text" id="username" size="25"></td>
      </tr>
      <tr>
        <td height="25"><div align="right"><span class="STYLE1">Password:</span></div></td>
        <td height="25"><input name="password" type="text" id="password" size="25"></td>
      </tr>
      <tr>
        <td height="25"><div align="right"><span class="STYLE1">IP:</span></div></td>
        <td height="25"><input name="ip" type="text" id="ip" size="25"></td>
      </tr>
      <tr>
        <td height="25"><div align="right"><span class="STYLE1">TableName:</span></div></td>
        <td height="25"><input name="tablename" type="text" id="tablename" value="joke" size="25"></td>
      </tr>
      <tr>
        <td height="25"><div align="right" class="STYLE1">DataName:</div></td>
        <td height="25"><input name="dataname" type="text" id="dataname" value="joke.mdb" size="25"></td>
      </tr>
      <tr>
        <td height="45" colspan="2"><div align="center"><span class="STYLE1">
            <input type="submit" name="Submit" value="提交">
            &nbsp;&nbsp;
            <input type="reset" name="Submit2" value="重置">
            </span></div></td>
      </tr>
    </table>
  </form>
</div>
<%end if%>
<%if action="two" then %>
<div>
  <%
  Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath(""&tablename&"字段信息.html"),true)
Set conn = Server.CreateObject("ADODB.Connection")
if selname="access" then
connstr="DBQ="+server.mappath(""&dataname&"")+";DRIVER={Microsoft Access Driver (*.mdb)};"
elseif selname="sqlserver" then
connstr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=" & ip & "; Initial Catalog="&dataname&"; User ID="&UserName&"; Password=" & password
end if
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from "& tablename &" where 1<>1"
rs.open sql,conn,1,1
j=rs.Fields.count
str= "<font color=red> <center>很高兴这个小小程序能给您的工作带来方便。</center></font><br><font color=red> <center>作者:柳永法QQ:64049027。</center></font><br><title>"&tablename&"字段信息--柳永法制作</title>"
response.Write str
fd.writeline str
'开始操作
str="本信息已经写入此程序所在文件夹下<font color=red>"""&tablename&"字段信息.html"""&"</font>内<br><br>"
response.Write str
fd.writeline str
for i=0 to (j-1)
title=rs.Fields(i).Name
str= title&"=trim(request("""&title&"""))"&"<br>"
response.Write str
fd.writeline str
Next

fd.writeline "<br>"

response.Write"<P>"
for i=0 to (j-1)
title=rs.Fields(i).Name
str="rs("""&title&""")="&title&"<br>"
str=title&"=rs("""&title&""")<br>"
response.Write str
fd.writeline str
Next

fd.writeline "<br>"

response.Write"<P>"
for i=0 to (j-1)
title=rs.Fields(i).Name
str= "rs("""&title&""")=trim(request("""&title&"""))<br>"
response.Write str
fd.writeline str
Next

fd.writeline "<br>"

response.Write"<P>"
for i=0 to (j-1)
title=rs.Fields(i).Name
str=title&"=rs("""&title&""")<br>"
response.Write str
fd.writeline str
Next

rs.close
%>
</div>
<%end if%>

ASP 一分钟=半天 之,自动生成:username=trim(request("username"))......功能"指引性"超强

半天-->一分钟=半天.STYLE1 {color: #FFFFFF}body,td,th { font-family: 宋体; font-size: 14px;}.STYLE2 {color: #...
  • yongfa365
  • yongfa365
  • 2006年05月30日 19:15
  • 1577

使用Filter进行Parameter的全半角转换和Trim

系统在使用过程中,用户输入的内容常存在全半角问题以及左右空格问题,若不进行合适的处理,对用户体验存在一定影响。若每次在getParameter()之后在进行处理,比较麻烦,而且存在遗漏的可能。此处采用...
  • Yubu_
  • Yubu_
  • 2017年05月17日 17:11
  • 196

trim() 用于username和password的验证

Trim() 功能:删除字符串中多余的空格,但会在英文字符串中保留一个作为词与词之间分隔的空格。 语法:Trim ( string ) 参数string:string类型,指定要删除首部和尾部空...
  • waj89757
  • waj89757
  • 2013年03月04日 22:03
  • 990

struts2 --- ajax的三种实现方式

一、Struts2 Response实现 1.1 UserAction package com.struts2.fileupload.action; import org.apache.stru...
  • Ka_Ka314
  • Ka_Ka314
  • 2018年01月08日 20:59
  • 76

Request介绍及示例 PART1

请求转发(RequestDispatcher)的过程: 客户首先发送一个请求到服务器端,服务器端发现匹配的servlet,并指定它去执行,当这个servlet执行完之后,它要调用getReques...
  • zghwaicsdn
  • zghwaicsdn
  • 2016年04月17日 01:40
  • 2548

高校研究生招生报名系统

  • 2010年12月24日 10:20
  • 112KB
  • 下载

Request["userName"]作用

string userName = Request["userName"].ToString();的作用是
  • u013169758
  • u013169758
  • 2014年10月23日 15:18
  • 73

添加用户3

自写代码
  • shuozilove
  • shuozilove
  • 2014年05月22日 18:54
  • 230

String.Trim()真相大揭秘

部门上次的CodeReview会议上,留下了一道作业题,也是本篇博文所要讲述的:String.Trim()方法到底为我们做了什么,仅仅是去除字符串两端的空格吗?很久很久以前,也就是前几个小时前,我一直...
  • vip__888
  • vip__888
  • 2010年01月13日 22:47
  • 16086

HttpServletRequest常用的方法

1、假设客户端地址是: http://user.cbice.com/cbice/BoardAction.do?operation=doSearch&index=index&boardIndex=boa...
  • lyt_7cs1dn9
  • lyt_7cs1dn9
  • 2017年05月25日 16:10
  • 390
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP 一分钟=半天 之,自动生成:username=trim(request("username"))......功能"指引性"超强
举报原因:
原因补充:

(最多只允许输入30个字)