xqf222
- 浏览: 126885 次
- 性别:
- 来自: 深圳
-
最新评论
文章列表
dim server_v1,server_v2server_v1=cstr(request.servervariables("http_referer"))server_v2=cstr(request.servervariables("server_name"))if mid(server_v1,8,len(server_v2))<>server_v2 thenresponse.write "<br><br><center><table border=1 cellpadding=20 bord ...
- 2006-01-13 14:15
- 浏览 286
- 评论(0)
<%if request("act")="FindMdbFileList" then RootPath=trim(request("RootPath")) FileName=trim(request("FileName")) TruePath=trim(request("TruePath")) FindType=trim(request("FindType")) if RootPath="" then response.write("&l ...
- 2006-01-13 13:54
- 浏览 568
- 评论(0)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '新建数据库 if request("act")="CreateDB" then PathName=trim(request("PathName")) DbVersion= trim(request("DbVersion")) if PathName="" then response.write("<script>alert('要压缩 ...
- 2006-01-13 13:50
- 浏览 303
- 评论(0)
<%Call Com_CreatValidCode("ValidCode")
Sub Com_CreatValidCode(CheckCode)
' 禁止缓存 Response.Expires = -9999 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Response.ContentType = "Image/BMP"
Randomize ...
- 2005-12-28 16:56
- 浏览 483
- 评论(0)
<%Dim a(10,10)dim digital,num2,i,hc,J
a(0,1) = "0x3c" '数字0a(0,2) = "0x66"a(0,3) = "0xc3"a(0,4) = "0xc3"a(0,5) = "0xc3"a(0,6) = "0xc3"a(0,7) = "0xc3"a(0,8) = "0xc3"a(0,9) = "0x66"a(0,10)= "0x3c"
a(1, ...
- 2005-12-28 16:53
- 浏览 383
- 评论(0)
<%response.Buffer=true'未能完成修改数据表字段名称结果'目前只设计完成了修改数据表字段属性'设计思路：1添加新列2拷贝Recordset字段内容到新的字段3删除原来字段'
dim PathName,TableName,RecordName,ColumnName,ColumnTypeDim RsName,RsType,RsNull,RsDefault,RsPrimarydim strConn,objConn,rsSchema
if request("act")="GetTableList" thenPathName=cstr(t ...
- 2005-12-28 16:49
- 浏览 351
- 评论(0)
FORM表单里的下拉选项框
<select name="RsType<%=i%>" size="1" id="RsType<%=i%>"> <option value="AutoIncrement" <% if i=0 then response.Write("selected")%>>自动编号</option> <option value="varchar" <% if i>0 the ...
- 2005-12-26 10:07
- 浏览 283
- 评论(0)
Sub CopyTable(PathName,TableName,TableName1)response.Write("<br>数据库路径:"&PathName)response.Write("<br>源数据表名称:"&TableName)response.Write("<br>目标数据表名称:"&TableName1)strConn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server. ...
- 2005-12-24 11:02
- 浏览 238
- 评论(0)