?? access to sql 腳本編寫器.htm
字號:
defaultStr=" Default "&splitchar & COLUMN_DEFAULT & splitchar
case 128
defaultStr=" Default 0x"&COLUMN_DEFAULT&"" 'or /同意詞 DEC
case else
defaultStr=" Default "&COLUMN_DEFAULT&""
end select
end function
function nullStr(IS_NULLABLE)
if IS_NULLABLE then
nullStr=""
else
nullStr=" not null "
end if
end function
'斷點調試 num=0 中斷
Sub rw(str,num)
dim istr:istr=str
dim inum:inum=num
response.write str&"<br>"
if inum=0 then response.end
end sub
SUB CreateMDB()
'改配置表名和列名
dim cat,NewDB_Name
NewDB_Name=request("DB_Name")
if NewDB_Name<>"" then
if instr(NewDB_Name,":\")=0 and instr(NewDB_Name,":/")=0 then
NewDB_Name=Server.MapPath(NewDB_Name)
end if
set cat=Server.CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&NewDB_Name
set cat=nothing
CreateDB(NewDB_Name)
response.write vbcrlf&"OK"
else
set cat=nothing
call main()
end if
End SUB
'=============================編寫access sql 腳本============//
Function questStr(Str)
Str=request(Str)
Str=replace(Str,"'","")
Str=Replace(Str,Chr(0),"")
Str=Replace(Str," ","")
questStr=Str
End Function
Function Ados_Read(FileName,CharsetType)
dim adosText
Ados_Read=""
if instr(FileName,":\")=0 and instr(FileName,":/")=0 then
FileName=Server.mappath(FileName)
end if
set adosText=Server.CreateObject("ADODB.Stream")
adosText.mode=3
adosText.type=2 'textStream
adosText.charset=""&CharsetType&""
adosText.open
adosText.loadFromFile FileName
Ados_Read=adosText.ReadText()
adosText.close
set adosText=nothing
End Function
SUB Ados_Write(TextString,FileName,CharsetType)
dim adosText
if instr(FileName,":\")=0 and instr(FileName,":/")=0 then
FileName=Server.mappath(FileName)
end if
set adosText=Server.CreateObject("ADODB.Stream")
adosText.mode=3
adosText.type=2 'textStream
adosText.charset=""&CharsetType&""
adosText.open
adosText.setEos
adosText.WriteText(TextString)
adosText.SaveToFile FileName,2
adosText.close
set adosText=nothing
End SUB
%>
<hr size=1>
<center>Create by <a href="http://www.paintblue.net/">V37 PaintBlue.Net 極點視覺</a> 2004-11-12</center>
<hr size=1>
<br>
<br>
</BODY>
</HTML>
</TEXTAREA><BR>[Ctrl+A 全部選擇 然后拷貝]</P>
<P>(版權: PaintBlue.Net | blueidea.com)<BR>2004-11-12
V37<BR>Ps:轉載請注明出處! </P>
<P align=right></P></TD></TR></TBODY></TABLE></TD>
<TD class=columnContent vAlign=top align=middle width=220>
<TABLE cellSpacing=4 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle>
<SCRIPT language=JavaScript>showbanner(4,4);</SCRIPT>
</TD></TR></TBODY></TABLE>
<TABLE class=border cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=6 src="Access to Sql 腳本編寫器.files/spacer.gif"
width=6></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width="100%" border=0>
<FORM action=http://www.google.com/custom method=get target=_top>
<TBODY>
<TR>
<TD class=columnTitle>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><A href="http://www.google.com/" target=_blank><IMG
src="Access to Sql 腳本編寫器.files/google_logo.gif"
border=0></A></TD>
<TD align=right>范圍：<INPUT type=radio value=""
name=sitesearch></INPUT>全網 <INPUT type=radio CHECKED
value=blueidea.com
name=sitesearch></INPUT>本站</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=columnContent><FONT color=red>推薦使用</FONT> <INPUT
maxLength=255 size=15 name=q></INPUT> <INPUT type=hidden
value=blueidea.com name=domains></INPUT> <INPUT type=submit value=搜索 name=sa></INPUT> <INPUT type=hidden
value=pub-5841412030047197 name=client></INPUT> <INPUT type=hidden
value=1 name=forid></INPUT> <INPUT type=hidden value=6876763258
name=channel></INPUT> <INPUT type=hidden value=GB2312
name=ie></INPUT> <INPUT type=hidden value=GB2312 name=oe></INPUT>
<INPUT type=hidden
value=GALT:008000;GL:1;DIV:336699;VLC:551A8B;AH:left;BGC:F2F3F7;LBGC:#8C8EA3;ALC:0000CC;LC:CC0033;T:000000;GFNT:#7777CC;GIMP:cc0033;LH:50;LW:778;L:http://www.blueidea.com/img/google_search_title.gif;S:http://www.blueidea.com;FORID:1;
name=cof></INPUT> <INPUT type=hidden value=zh-CN name=hl></INPUT>
</TD></TR></FORM></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=border><IMG height=6
src="Access to Sql 腳本編寫器.files/spacer.gif"
width=6></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width="100%" border=0>
<TBODY>
<TR>
<TD class=columnTitle>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><STRONG>站內搜索</STRONG>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=columnContent cellSpacing=6 cellPadding=0 width="100%"
border=0>
<FORM name=search action=/common/search1.asp method=post><INPUT
type=hidden value=executeSearch name=action>
<TBODY>
<TR>
<TD><INPUT style="WIDTH: 70px" size=10 name=key> </TD>
<TD><SELECT name=searchby> <OPTION value=title
selected>標題</OPTION></SELECT> </TD>
<TD><INPUT type=image height=19 width=46
src="Access to Sql 腳本編寫器.files/searchbutton.gif" border=0
name=submit2> </TD></TR>
<TR>
<TD><A
href="http://www.blueidea.com/common/searchbykey.asp">關鍵字搜索</A></TD>
<TD><A href="http://www.blueidea.com/common/search1.asp">常規搜索</A></TD>
<TD><A
href="http://www.blueidea.com/common/google/search.aspx"><FONT
color=red>高級搜索</FONT></A></TD></TR>
<TR>
<TD class=list colSpan=3>熱門搜索：<A
href="http://www.blueidea.com/common/searchbykey.asp?keyword=css">CSS</A>
<A
href="http://www.blueidea.com/common/searchbykey.asp?keyword=fireworks">Fireworks</A>
<A href="http://www.blueidea.com/news/game/">設計比賽</A> <A
href="http://www.blueidea.com/tech/web/">網頁制作</A> <A
href="http://www.blueidea.com/common/searchbykey.asp?keyword=Dreamweaver">Dreamweaver</A>
<A
href="http://www.blueidea.com/common/searchbykey.asp?keyword=2004"><FONT
color=red>2004</FONT></A> <A
href="http://www.blueidea.com/common/searchbykey.asp?keyword=flash">Flash</A></TD></TR></FORM></TBODY></TABLE>
<TABLE class=border cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=6 src="Access to Sql 腳本編寫器.files/spacer.gif"
width=6></TD></TR></TBODY></TABLE>
<TABLE class=listcontent cellSpacing=0 cellPadding=6 width="100%"
border=0>
<TBODY>
<TR>
<TD class=listTitle>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><STRONG><AC:CATEGORYNAMESHOW />站點最新</STRONG></TD>
<TD align=right><A
href="http://www.blueidea.com/updatelist.asp">站點最新列表</A></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/news/game/2004/2371.asp">“美度創意空間”創意設計大賽</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/news/game/2004/2370.asp">網易精品網絡游戲Flash設計賽</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/tech/graph/2004/2369.asp">《大師之路》課程#05：圖層</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/tech/graph/2004/2368.asp">Photoshop實用反轉負沖教程</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/news/game/2004/2367.asp">ATI壁紙大賽
22000 元等你來</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/computer/soft/2004/2366.asp">在
win2k3 下安裝 webeasymail</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/photo/story/2004/2365.asp">走馬觀花看洛陽
</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/tech/multimedia/2004/2364.asp">Flash
與 html 的一些實用技巧</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
<TD><IMG height=13 src="Access to Sql 腳本編寫器.files/arrow.gif"
width=4> <A
href="http://www.blueidea.com/news/game/2004/2363.asp">數碼藝術雜志5000元征集封面</A></TD></TR>
<TR>
<TD background="Access to Sql 腳本編寫器.files/bg_dot.gif"
height=1></TD></TR>
<TR>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -