⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 access to sql 脚本编写器.htm

📁 Access to Sql 脚本编写器
💻 HTM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
			 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>
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -