create.asp

来自「图书管理系统」· ASP 代码 · 共 53 行

ASP
53 行
字号 
<%@ 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>

create.asp - 源码说明

本页面展示了「图书管理系统」中的 create.asp 源码文件，采用 ASP 编程语言编写，共 53 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与图书管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?