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')" style="display:none" />
IP:<input type="text" name="IP" size="16" style="border:1px solid green" value=".\sql2005" />
登录名:<input type="text" name="UserID" size="10" style="border:1px solid green" value="sa" />
密码:<input type="password" name="pwd" size="10" style="border:1px solid green" value="yongfa365" />
数据库名:<input type="text" name="dbname" size="10" style="border:1px solid green" value="hb605-8-8" /><br />
<input name="button2" type="button" id="button2" style="border:1px solid green" onclick="CreateTableSelect
('MSSQL')" value="连接SQL数据库" />
<input type="button" id="btnFromFile" onclick="txtFile.click()" value="连接ACCESS数据库" style="border:1px solid
green" />
<span id="Tables" ></span>

<hr />
    模板:
    <input type="text" id="opt" value="" size="40" />
    <select size="1" id="fz" onchange="opt.value=this.value" style="width:200px"></select>
    <input name="button" type="button" id="button" onclick="c()" value="转换" style="border:1px solid green">
    <hr />
    <textarea id="s" rows="10" cols="80" style="width:98%"></textarea>
    <input type="button" onclick="MadeSQL()" value="生成SQL语句" style="border:1px solid green" />
    <textarea id="d" rows="10" cols="80" style="width:98%"></textarea>
</div>

<pre id="SQLDEMO" style="display:none" 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" style="display:none" intro="初始源测试数据">
UserName
Password
Sex
TrueName
Age
Tel
MSN
QQ
Email
</pre>

<pre id="fzDemo" style="display:none" 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>

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

(0)

相关推荐

  • 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&

  • 扣代码工具 hta版

    复制下面的代码,最好用editplus等专业点的编辑工具. 复制代码 代码如下: <!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"> <he

  • vpn连接程序hta版实现代码(修改)

    复制代码 代码如下: <HTA:APPLICATION ID="MySampleHTA" Caption="yes" SCROLL="auto" border="none" borderStyle="static" SINGLEINSTANCE="yes" maximizebutton="no" BORDER="no" icon="

  • 基于VS+Opencv2.4.10微信跳一跳辅助工具

    最近微信的跳一跳小程序可谓火了一把,不是因为它本身多好玩,而是有大部分的程序员们加入其中,利用各种领域方法,实现了微信跳一跳的外挂,分数轻松上千或上万.之前也看了基于Python开源的代码,GitHub上现在的star已经快超过1W了,简直不敢想.趁着今天礼拜天,在实验室中也简单的实现了一下微信跳一跳的辅助工具,精度还不够高,我跑了一下才到90,纯属娱乐好玩的,后期再继续改进,主要是依赖C++来实现了一下. 环境: Win10+VS2012+Opencv2.4.10+ADB工具 环境的搭建请查阅

  • Vue组件大全包括(UI组件,开发框架,服务端,辅助工具,应用实例,Demo示例)

    Vue是一款比较流行的JS库,本文为大家介绍一些Vue组件,包括UI组件,开发框架,服务端,辅助工具,应用实例,Demo示例等开源项目 一.Vue常用UI组件 element ★11612 - 饿了么出品的Vue2的web UI工具套件 Vux ★7503 - 基于Vue和WeUI的组件库 iview ★5801 - 基于 Vuejs 的开源 UI 组件库 mint-ui ★5517 - Vue 2的移动UI元素 vue-material ★2790 - 通过Vue Material和Vue 2

  • 用Python实现QQ游戏大家来找茬辅助工具

    好久没写技术相关的文章,这次写篇有意思的,关于一个有意思的游戏--QQ找茬,关于一种有意思的语言--Python,关于一个有意思的库--Qt. 这是一个用于QQ大家来找茬(美女找茬)的辅助外挂,开发的原因是看到老爸天天在玩这个游戏,分数是惨不忍睹的负4000多.他玩游戏有他的乐趣,并不很在意输赢,我做这个也只是自我娱乐,顺便讨他个好,毕竟我们搞编程的实在难有机会在父辈面前露露手.本来是想写个很简单的东西,但由于过程中老爸的多次嘲讽,逼得我不得不尽力完善,最后形成了一个小小的产品. 接触Pytho

  • 卡巴病毒库备份工具 专用版!

    卡巴病毒库备份工具 专用版! 每次GHOST还原系统后,最麻烦的恐怕就是等待更新病毒库了,而且那个卡巴,可能是 身体不太好,升级真的是太慢太慢了,呵呵! 所以自己就写了这个卡巴病毒库更新软件,网上也有相关软件,可是感觉用着不爽,呵呵,大家感觉那个舒服就用那个吧! 点击下载

  • python实现微信跳一跳辅助工具步骤详解

    说明 1.windows上安装安卓模拟器,安卓版本5.1以上 2.模拟器里下载安装最新的微信6.6.1 3.最好使用python2.7,python3的pyhook包有bug,解决比较麻烦 步骤 1.windows上安装python2.7,配置好环境变量和pip 2.到这个网站下载对应版本的pyHook和pywin32 http://www.lfd.uci.edu/~gohlke/pythonlibs 2.打开cmd,安装下载好的whl文件和其他库 pip install pywin32-221

  • node.js开发辅助工具nodemon安装与配置详解

    nodemon安装及使用 全局安装 nodemon 包,这样新创建的 Node.js 应用都能使用 Nodemon 运行起来了 npm install -g nodemon 安装完成之后,Nodemon 就可以启动 Express 应用了,先关闭当前正在执行的应用程序,然后再执行命令: nodemon index.js 默认地,nodemon会自动打开index.js.所以,也可以使用如下命令 nodemon 通过 Nodemon 启动应用之后,不管是修改了代码,还是安装了新的 npm 包,No

  • Java数据开发辅助工具Docker与普通程序使用方法

    目录 介绍 需求背景: 程序的使用方法 Docker 方式: 普通方式 配置文件说明 最后的话 介绍 需求背景: 有很多业务系统,他们的数据库是相互独立的,俗称数据孤岛,为了做数据统计分析,就需要把这些数据归集在一个数据库中,比如数据仓库,然后多表关联查询,方便开发数据应用.希望能有这样的工具,指定两个数据库和表名,就可以将表从源数据库拷贝到目标数据库中.具体需求如下: 能自动同步表结构,如:源表加字段,目标表自动加字段. 支持增量或全量复制数据,比如按日期进行复制数据. 支持指定字段同步,只同

随机推荐