用asp+sql语句动态的创建access表

<% nowtime = now()tablename = cstr(year(nowtime))+"_"+cstr(second(nowtime))response.write tablename  db_path = "test.mdb"Set conn= Server.CreateObject("ADODB.Conn…

<%
 nowtime = now()
tablename = cstr(year(nowtime))+"_"+cstr(second(nowtime))
response.write tablename  
db_path = "test.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "create table "& tablename &" (id integer primary key,name text,Birthday datetime)"
rs.Open sql,conn,2,3
%>

留作参考,对在线升级数据库有用处.

ASP函数InstrRev()的应用:获取当前文件名.

InstrRev函数, 从字符串的最后一个搜索起,前面字符串。

 InstrRev函数, 从字符串的最后一个搜索起,前面字符串。

 举例来说明其应用:
<%Dim strTXT,pos

strTXT="www.lunji.com"

pos=instrRev(strTXT,".")

Response.Write pos

%>

我们搜索的起始是倒序,从com前的一个点.起始的字符的长度,含此点,共十个字符,返回的结果将是9.

通过此原理,我们就可以取得文件名,域名后缀名等.

<%Dim aa,bb,cc,dd

aa=Request.Servervariables("url")

bb=InstrRev(aa,"/")

cc=len(aa)

dd=Right(aa,cc-bb)

Response.Write dd

%>