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

<!--本软件的诞生的原因：证明：只要你用心，那么:一分种 <=> 半天-->
<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%>