教育系统应用

开发平台：

Delphi

create.asp：源码内容

							<%@ Language=VBScript %>
<%
filename = server.mappath("cohhc.hhc")
set fileobject = createobject("scripting.filesystemobject")
set out = fileobject.createtextfile(filename,true,false)
out.writeline "<HTML>"
Response.End
out.writeline "<!-- Sitemap 1.0 -->"
out.writeline "<!-- 1022 -->"
out.writeline "<OBJECT type=""text/site properties"">"
out.writeline "<param name=""FrameName"" value=""main"">"
out.writeline "</OBJECT>"
Response.End
set conn = server.CreateObject("adodb.connection")
conn.Open application("dsn")
sql = "select name,num,flag from list order by id"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
while not rs.EOF
	out.writeline "<LI>" 
	out.writeline "<OBJECT type=""text/sitemap"">"
	out.writeline "<param name=""Name"" value="""& rs("name") &""">"
	out.writeline "<param name=""Local"" value=""booklist.asp?b_type="& rs("num") &""">"    
	out.writeline "</OBJECT>"
	out.writeline "<A HREF=""booklist.asp?b_type="& rs("num") &""">" & rs("name") & "</A>"
	out.writeline "</LI>"
	
	rs.MoveNext
wend 
rs.Close
set rs = nothing
conn.Close
set conn = nothing
out.close
set out = nothing
set fileobject = nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>&nbsp;</P>
</BODY>
</HTML>

						