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>


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

发表评论

发表评论