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%>

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

超强C#图片上传,加水印,自动生成缩略图源代码(联高原创)

地址:http://www.legalsoft.com.cn/docs/1000.html 摘要:文章:超强C#图片上传,加水印,自动生成缩略图源代码(联高原创) 摘要:北京联高软件开发有限公司倾情...
  • wlanye
  • wlanye
  • 2012-05-25 11:05
  • 2434

IDEA自定义新建文件自动产生的userName

主要是由于本人不喜欢代码里有黄色警告等来写的。刚刚新建一个类文件时生成的头部会有很大一块黄色警告,如图: 这里自定义名字和头部 ,在IDEA环境中去设置,File->Settings->File a...

asp.net上传图片+自动生成缩略图+图片水印功能

实现过程:选择图片上传成功后,取得已经存在服务器的文件生成缩略图,并且判断是否是图片类型的文件,这个的判断可以在程序中修改,本程序只是判断了“image/bmp”、“image/gif”、“image...

Eclipse自动生成作者、日期注释等最强功能设置

在使用Eclipse 编写Java代码时,自动生成的注释信息都是按照预先设置好的格式生成的。修改作者、日期注释格式:打开Windows->Preferences->Java->Code Style->...

WCF Rest UserName Password

  • 2012-02-02 10:18
  • 224KB
  • 下载

lots of invalid username/password lead to login hang(library cache lock)

很早之前就遇到过ji
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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