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>

오 류 를 방지 하기 위해 포장 합 니 다다운로드 주소

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

코드 리뷰 보조 도구 (RuboCop)

1.RuboCop 도입 2.RuboCop 실행 코드 검토 도구는 문법, 버그 및 코딩 스타일을 자동으로 분석하는 도구를 말합니다. .rubocop.todo.yml에서 위반을 지우고 rubocop을 실행 → 수정이라는...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

ASP 보조 도구(hta 버 전)

좋은 웹페이지 즐겨찾기