[code] sub sendMail(a_intID , a_strEmail) const c_strMailServer = "smtp.163.net" dim objConn,objRs,strSql dim strContent,strBody,strSubject,objEmail strBody = "" strBody = strBody + "" s ...

大家知道直接使用ASP是不能够重启服务器的，这时我们需要制作一个组件来实现功能，ASP通过这个组件调用系统API，然后按照不同的重启和关机方式进行操作！ 下面先说COM的制作，在VB中新建一工程，当然是AceiveX dll的！ 1）先修改工程属性，在工程属性窗口将工程名称改为system，在类模块窗口将模块名称改为contral，保 ...

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

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%>位访问贵站的朋友