用ＡＳＰ编写网站应用程序时间长了，难免会遇到各式各样的问题，其中 关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如 你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能， 就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的 文件上传组件，使用起来功能 ...

ASP是基于 Server端的脚本运行环境，它简单易用，不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用。 但是，因为 ASP脚本是纯文本格式，所以恶意者通过源代码可以很容易地看到原本不该看到的页面内容。例如， ASP源代码中通常有系统数据库的连接用户名和口令， ...

<% 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：为安全做点力量 我本着抛砖引玉思想欢迎大家来一起讨论此帖，谢谢！ 此帖已经在远望论坛发帖子讨论,已经有人回复总结一文,在此一起发出,希 ...