📄 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> </P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -