| 标题 | ASP 辅助工具(hta版) |
| 范文 | 使用方法：保存为ASPTools.hta然后再运行 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1- transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta name="author" content="柳永法" /> <title>ASP辅助工具</title> <style>body{ font-size:12px}</style> <HTA:APPLICATION ID="ASPTools" APPLICATIONNAME="ASPTools" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="normal" > </head> <body> <div> <input type="file" id="txtFile" onchange="CreateTableSelect('ACCESS')" /> IP：<input type="text" name="IP" size="16" value=".\sql2005" /> 登录名：<input type="text" name="UserID" size="10" value="sa" /> 密码：<input type="password" name="pwd" size="10" value="yongfa365" /> 数据库名：<input type="text" name="dbname" size="10" value="hb605-8-8" /><br /> <input name="button2" type="button" id="button2" onclick="CreateTableSelect ('MSSQL')" value="连接SQL数据库" /> <input type="button" id="btnFromFile" onclick="txtFile.click()" value="连接ACCESS数据库" /> <span id="Tables" ></span> <hr /> 模板： <input type="text" id="opt" value="" size="40" /> <select size="1" id="fz" onchange="opt.value=this.value"></select> <input name="button" type="button" id="button" onclick="c()" value="转换"> <hr /> <textarea id="s" rows="10" cols="80"></textarea> <input type="button" onclick="MadeSQL()" value="生成SQL语句" /> <textarea id="d" rows="10" cols="80"></textarea> </div> <pre id="SQLDEMO" intro="通用建表结构"> --通用建表结构 Create Table [dbo].[tablename] ( [ID] int primary key identity(1,1),--ID，主键，自动号 [txtTitle] varchar(255),--标题 [txtContent] text,--内容 [PutTime] datetime Default (getdate()),--提交时间 [ModiTime] datetime Default (getdate()),--修改时间 [Hits] int Default (0),--点击数 [Flags] int Default (0) ,--标识 [OrderID] int Default (0),--排序号 ) </pre> <pre id="sDemo" intro="初始源测试数据"> UserName Password Sex TrueName Age Tel MSN </pre> <pre id="fzDemo" intro="辅助输入"> 辅助输入 rs("$1") = Request("$1") rs("$1") = SafeRequest("$1") $1 = Request("$1") $1 = SafeRequest("$1") <tr><td>$1：</td><td><input type="text" name="$1" size="20"></td></tr> </pre> <hr /> 建议查看源文件然后保存为ASPTools.hta然后再运行 <script language="VBScript" type="text/vbscript"> self.Focus() self.ResizeTo 620, 520 '初始化数据 s.Value = sDemo.innerHTML fzs = Split(fzDemo.innerHTML, vbCrLf) For Each optTemp In fzs Set o = document.createElement("Option") o.text = optTemp o.Value = optTemp fz.Add o Next opt.Value = fz.options(1).Value '程序运行时的一些函数 Function c() ss = Split(s.Value, vbCrLf) For Each sss in ss If sss<>"" Then Str = Str & Replace(opt.Value, "$1", sss) & vbCrLf Next d.Value = Str End Function Dim xCat '定义全局变量，避免重复链接数据库。 Function CreateTableSelect(dbType) Set xCat = CreateObject("ADOX.Catalog") If dbType = "ACCESS" Then xCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtFile.Value ElseIf dbType = "MSSQL" Then xCat.ActiveConnection = "Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=" & IP.Value & "; Initial Catalog="& dbname.Value &"; User ID="& UserID.Value &"; Password=" & pwd.Value End If For Each xTable in xCat.Tables tableType = xTable.Type If tableType = "TABLE" Then TablesS = TablesS & "<option value='"& xTable.Name &"'>"& xTable.Name &"</option>" End If Next Tables.innerHTML = " <select name='NowTables' onchange='CreateFieldSelect(""" & dbType & """)'><option>==请选择 表名==</option>" & TablesS & "</select>" End Function Function CreateFieldSelect(dbType) Dim Item For Each xTable in xCat.Tables If xTable.Name = NowTables.Value Then For Each Item in xTable.Columns Str = Str + Item.Name & vbCrLf Next Exit For End If Next s.Value = Left(Str, Len(Str) -2) End Function Function MadeSQL() yongfa365Fields = Split(s.Value, vbCrLf) yongfa365Code2 = "" For Each sql in yongfa365Fields If sql<>"" Then strSQL = strSQL & " [" & sql & "] varchar(50)," Next strSQL = Left(strSQL, Len(strSQL) -1) yongfa365Code2 = "Create Table TableName(" & vbCrLf & Replace(strSQL, ",", "," & vbCrLf) & vbCrLf & ")" & vbCrLf & vbCrLf TempValue = Join(yongfa365Fields, " & ""','"" & objItem.") yongfa365Code2 = yongfa365Code2 & "Conn.Execute ""insert into Info (" & Join(yongfa365Fields, ",") & ") values ('"" & objItem." & TempValue & " & ""')""" & vbCrLf & vbCrLf & vbCrLf TempValue = Join(yongfa365Fields, """) & ""','"" & rs(""") yongfa365Code2 = yongfa365Code2 & "Conn.Execute ""insert into Info (" & Join(yongfa365Fields, ",") & ") values ('"" & rs(""" & TempValue & """) & ""')""" & vbCrLf & vbCrLf & vbCrLf TempValue = Join(yongfa365Fields, " & ""','"" & ") yongfa365Code2 = yongfa365Code2 & "Conn.Execute ""insert into Info (" & Join(yongfa365Fields, ",") & ") values ('"" & " & TempValue & " & ""')""" & vbCrLf & vbCrLf & vbCrLf d.Value = SQLDEMO.innerHTML & String(2, vbCrLf) & yongfa365Code2 End Function Function reReplace(Str, restrS, restrD) Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = restrS reReplace = re.Replace(Str, restrD) End Function </script> </body> </html> |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。