书签 分享 收藏 举报 版权申诉 / 31

类型校园网站的设计与实现.docx

  • 文档编号:14124287
  • 上传时间:2023-06-20
  • 格式:DOCX
  • 页数:31
  • 大小:245.58KB
"

Response.End

EndIf

DimWebTitle,WebName

WebName=W_WebSiteName&"-"&W_WebSiteUrl

WebTitle=""

%>

(二)google地图代码

<%

endsub

subsavegoogle(strPath)

XMLContent="

xmlversion='1.0'encoding='UTF-8'?

>"&vbNewLine

XMLContent=XMLContent&"

setrs1=server.createobject("ADODB.Recordset")

sql1="selectTop"&Request("links")&"IDfromYao_Articlewhereyn=0orderbyDateAndTimedesc"

rs1.opensql1,conn,1,3

dowhilenot(rs1.eoforerr)

XMLContent=XMLContent&""&vbNewLine

Timex=Request("Timex")

Timex=Right("0"&Timex,2)&":

00"

aTime=Year(now())&"-"&Right("0"&Month(now()),2)&"-"&Right("0"&Day(now()),2)&"T"&Right("0"&Hour(now()),2)&":

"&Right("0"&Minute(now()),2)&":

"&Right("0"&Second(now()),2)&"+"&Timex

XMLContent=XMLContent&"http:

//"&Siteurl&SitePath&""

IfHtml=2then

XMLContent=XMLContent&"Html/?

"&rs1("ID")&".html"

Else

XMLContent=XMLContent&"List.asp?

ID="&rs1("ID")&""

Endif

XMLContent=XMLContent&""&vbNewLine&""&aTime&""&vbNewLine

XMLContent=XMLContent&"daily"&vbNewLine

XMLContent=XMLContent&"0."&RndNumber(1,9)&""&vbNewLine

XMLContent=XMLContent&""&vbNewLine

rs1.movenext

loop

rs1.close

setrs1=nothing

XMLContent=XMLContent&""

strPath=Server.MapPath(strPath)&"\Sitemap.xml"

CreateXMLFileXMLContent,strPath

CallInfo("生成站点地图成功!



//"&SiteUrl&SitePath&"Sitemap.xml""target=""_blank"">点此浏览")

endsub

FunctionCreateXMLFile(sXML,FileP

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
校园 网站 设计 实现
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:校园网站的设计与实现.docx
链接地址:https://www.bingdoc.com/p-14124287.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开