<% Option Explicit dim databasename '定义数据库名称 databasename="database.mdb" '数据库名称 dim databasepath '定义数据库存放路径 databasepath="D:\office\jd\21\database\" '数据库绝对路径 dim databasever '定义数据库版本 2000 或者 97 databasever = "2000" Function Createdfile(FilePath,FileName,Ver) Dim Ca,dbver select case ver case "97" dbver = "3.51" case "2000" dbver = "4.0" end select if dbver <> "" then
Set Ca = Server.CreateObject("ADOX.Catalog")
call Ca.Create("Provider=Microsoft.Jet.OLEDB." & dbver & ";Data Source=" & filepath & filename)
end if
End Function

Createdfile databasepath,databasename,databasever '创建数据库

%>
本来用asp创建数据库是没有什么用处的

Sub DeleteAFile(dfile) 'On Error Resume Next Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.GetFile(Server.MapPath(dfile)) MyFile.Delete true set MyFile=nothing set fso=nothing End Sub DeleteAFile("temp.asp") 修改一下 ...

先手动创建一个rstj.txt文件，然后在此文件输入一个数字，再在rstj.txt文件的同目录下
创建一个.asp文件，内容如下：

<% Function rstj() dim fso,f1,ts,s Const ForReading=1 Set fso=CreateObject("Scripting.FileSystemObject") Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2) s=ts.Readline ts.close set fso=createobject("scripting.filesystemobject") set f1=fso.createtextfile(server.mappath("rstj.txt"),true,true) f1.writeline s+1 f1.close Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2) s=ts.Readline rstj=s ts.close End Function %>

您是第<%=rstj%>位访问贵站的朋友

现在很多的公司网站的后台漏洞是大的叫人害怕 只要写入’or’ ’=’， 就可以顺利的登入它的后台管理 针对于此，大家都是如和处理的？ 希望各位发出自己的检验，完善下这个帖子， PS：为安全做点力量 我本着抛砖引玉思想欢迎大家来一起讨论此帖，谢谢！ 此帖已经在远望论坛发帖子讨论,已经有人回复总结一文,在此一起发出,希 ...

上回在一个论坛看到有人问服务端限制提交数据为16字节能不能写个webshell到改为asp格式的数据库，所以就想了想，发现了这个更小的后门 你一定见过冰狐浪子的asp后门吧，呵呵，他的后门号称“最小的asp后门”，所以偶的这个只好是“更小的”了。 废话少说，先看看他的代码： javas cript下的eval(Request.form('#') ...

我昨天在我们这里和一位朋友谈到路径时候使用了 include ，使我记起了以前谈论过关于这方面的事情，现在想将它重新写在这里供大家参考，希望能有更多的朋友也来讨论这个问题。 ============================ include在网页制作中的使用既简单又灵活，它不但能减少页面的繁琐，也会使管理变得更有序和有效，许多朋友都在 ...

过滤函数102.asp的内容 china2008(request.form("userid")) //这里的"userid" ，"password" china2008(request.form("password")) // 和提交页面的name值要一样，其他的都不改。 login.asp内容 用户名： 密 码： ...

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键 no 可用于Table 2. 取消选取、防止复制 3. onpaste="return false" 不准粘贴 4. oncopy="return false;" oncut="return false;" 防止复制 5. IE地址栏前换成自己的图标 6. 可以在收藏夹中显示出你的图标 7 ...