有asp生成创建access表结构! 类似下面的代码，access表结构。
CREATE TABLE [Sd_Tags] (
[id] int IDENTITY (1, 1) PRIMARY KEY NOT NULL ,
[title] nvarchar (50) NULL ,
[followid] int NULL default 0,
[tag_font] nvarchar (50) NULL ,
[tag_size] nvarchar (50) NULL ,
[tag_color] nvarchar (50) NULL ,
[hits] int NULL default 0")
<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit
response.buffer=true
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
'build2004-11-20 V1.05
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>CooSel2.0 Access to SQLserver 数据库生迁脚本编写器 V1.05(V37 PaintBlue.Net 2004 Acp Code)</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="V37">
<META NAME="Keywords" CONTENT="PaintBlue.Net,PaintBlue">
<META NAME="Description" CONTENT="PaintBlue.Net">
<style>
table{ color: #000000;
font-size: 9pt;
FONT-FAMILY: "Tahoma","MS Shell Dlg";
}
td { color: #000000;
font-size: 9pt;
}table{ color: #000000;
font-size: 9pt;
FONT-FAMILY: "Tahoma","MS Shell Dlg";
}
body { color: #000000;
font-size: 9pt;
}
</style>
</HEAD>
<body bgCOLOR=eeeeee text="#000000" leftmargin="0" marginwidth="100%" topmargin="0" bottommargin="20">
<%
'2004-11-18/
'fix exec=0 =1 type
'fix conv now() date() time() type
'fix binary ole conv 不做导入
'fix Asp代码生成
dim enMode,UniCodeMode
dim DB_Name,ExtName,FileName
dim rs,CONN,CONNstr
DB_Name=questStr("DB_Name")
FileName=questStr("DB_Name")
enMode=questStr("enMode")
UniCodeMode=questStr("UniCodeMode")
if not isnumeric(enMode) then enMode=0
'2004-11-18
dim databaseName,darr,errinfo
dim loginName
dim loginPassword
dim sapass
errinfo=""
databaseName=questStr("databaseName")
loginName=questStr("loginName")
loginPassword=questStr("loginPassword")
sapass=questStr("sapass")
if not checkchar(loginName) then
errinfo=errinfo & "要生成的SQL数据库登陆名称含不合法字符\n"
end if
if not checkchar(databaseName) then
errinfo=errinfo & "要生成的SQL数据库名称含不合法字符\n"
end if
if errinfo<>"" then GetAlert errinfo
if databaseName="" and DB_Name<>"" then
darr=split(DB_Name,"\")
databaseName=split(darr(ubound(darr)),".")(0)
end if
'--------/
if DB_Name<>"" then
enMode=clng(enMode)
if enMode=0 then
ExtName=".Sql"
else
ExtName=".Asp"
end if
Call openDB(DB_Name)
Call CreateSQL(DB_Name,enMode)
else
if DB_Name="" then DB_Name="data/mydb.mdb"
Call Main()
end if
'2004-11-18
Function CheckChar(testchar)
CheckChar=true
dim chars,i,j,charlen
chars=testchar
dim ichar
ichar=array("=","\","(",")","/","%",chr(32),"?"," & ","$",";",",","'",chr(34),chr(9),chr(0),"*",">","<","|",":","#")
charlen=len(chars)
for i=0 to ubound(ichar)
if instr(chars,ichar(i))>0 then
CheckChar=false
exit function
end if
next
End function
SUB GetAlert(errinfo)
%>
这个不能叫做asp生成的了 是叫T-SQL了
推荐你自己去网站学下如果你的对SQL语句了解点的话很快就可以学习了,当然也欢迎加好友好好交流下呵
很难。。。
参考资料： http://www.91far.cn