ASP 辅助工具(hta版)
ASP 辅助工具(hta版)
发布时间:2016-12-28 来源:查字典编辑
摘要:使用方法:保存为ASPTools.hta然后再运行复制代码代码如下:ASP辅助工具body{font-size:12px}IP:登录名:密码...

使用方法:保存为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" value="连接SQL数据库" />

<input type="button" id="btnFromFile" 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" value="转换">

<hr />

<textarea id="s" rows="10" cols="80"></textarea>

<input type="button" 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

QQ

Email

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

为防止出错,特给打包下载地址

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新hta学习
热门hta学习
脚本专栏子分类