autocreate.asp

来自「后台： 1.后台安全方面做了防注处理 2.添加了显示修改数据功能 3.添加」· ASP 代码 · 共 18 行

<%
Sub AutoCreate(Page,Title,AddTime,Body)
	Dim Fso,opentextfile,insert,CreateTextFile
	Set fso = CreateObject("Scripting.FileSystemObject")
		Set opentextfile = fso.opentextfile(server.mappath("../template/disp.htm"),1,True)
			insert = opentextfile.ReadAll
			insert = replace(insert,"{$Title}",Title)
			insert = replace(insert,"{$AddTime}",AddTime)
			insert = replace(insert,"{$Body}",Body)
			Set CreateTextFile = fso.CreateTextFile(server.mappath( Page ))
				CreateTextFile.WriteLine insert
				CreateTextFile.close
				opentextfile.close
			Set CreateTextFile = nothing
		Set opentextfile = Nothing
	Set fso = Nothing
End Sub
%>