当前位置：首页» 行业网站案例 » 【建站服务】文昌网站优化【文昌微信公众号购物商城小程序制作】文昌网店美工排版设计_文昌网页推广公司_文昌网站开发公司—文昌微信公众号小程序网站代运营网络维护托管服务-域名申请

【建站服务】文昌网站优化【文昌微信公众号购物商城小程序制作】文昌网店美工排版设计_文昌网页推广公司_文昌网站开发公司—文昌微信公众号小程序网站代运营网络维护托管服务-域名申请

作者: 风兰 . 阅读量： 4 . 发表时间：2022-09-20 16:29:06

网站建设

上往建站提供服务器空间服务商，百度快照排名，网站托管，百度推广运营,致力于设计外包服务与源代码定制开发，360推广，搜狗推广,增加网站的能见度及访问量提升网络营销的效果,主营：网站公司,百度推广公司电话,官网搭建服务,网站服务企业排名,服务器空间,英文域名等业务，专业团队服务，效果好。

文昌网站优化【文昌微信公众号购物商城小程序制作】文昌网店美工排版设计_文昌网页推广公司_文昌网站开发公司—文昌微信公众号小程序网站代运营网络维护托管服务

网站建设.jpg

网页制作

文昌，海南省下辖市，古称紫贝。位于海南省东北部，东、南、北三面临海，陆地总面积2488平方公里，海域面积5245平方公里，海岸线289.82公里。 [1] 2019年末全市常住人口57.52万人。 [2]

自西汉建置已有2100多年历史，为海南三大历史古邑之一，是中国著名的侨乡，是琼崖革命重要的根据地之一 [3] ，海南闽南文化发源地，海南文昌航天发射中心所在地，是中国第四座航天之城，是全国科技进步示范市、全国科技进步先进市、全国文化先进市。拥有278.5公里海岸线为海南海岸线最长的城市 [4] 。市境内清澜港是国家一级对外开放口岸，南中国海重要港口枢纽，也是三沙市后勤保障基地。

2020年文昌地区生产总值263.50亿元，按不变价格计算，比上年增长3.0%。分产业看，第一产业增加值90.60亿元，增长3.7%；第二产业增加值52.58亿元，增长4.2%；第三产业增加值120.32亿元，增长1.8%。三次产业结构为34.38：19.96：45.66。

微信公众号开发

<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

<xsl:template match="/">
<html>
<body>
<h2>Updated Tool Information:</h2>
<table border="1">
<xsl:for-each select="tool/field">
<tr>
<td><xsl:value-of select="@id" /></td>
<td><xsl:value-of select="value" /></td>
</tr>
</xsl:for-each>
</table>
</body>
</html>
</xsl:template>

</xsl:stylesheet>

查看 XSL 文件。

ASP 文件

在上面 "tool.xsl" 文件中，HTML 表单的 action 属性的值是 "edittool.asp" 。

"edittool.asp" 页面包含两个函数：loadFile() 函数载入并转换 XML 文件，updateFile() 函数更新 XML 文件：

<%
function loadFile(xmlfile,xslfile)
Dim xmlDoc,xslDoc
'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)
'Load XSL file
set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
xslDoc.async = false
xslDoc.load(xslfile)
'Transform file
Response.Write(xmlDoc.transformNode(xslDoc))
end function

function updateFile(xmlfile)
Dim xmlDoc,rootEl,f
Dim i
'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)

'Set the rootEl variable equal to the root element
Set rootEl = xmlDoc.documentElement

'Loop through the form collection
for i = 1 To Request.Form.Count
'Eliminate button elements in the form
if instr(1,Request.Form.Key(i),"btn_")=0 then
'The selectSingleNode method queries the XML file for a single node
'that matches a query. This query requests the value element that is
'the child of a field element that has an id attribute which matches
'the current key value in the Form Collection. When there is a match -
'set the text property equal to the value of the current field in the
'Form Collection.
set f = rootEl.selectSingleNode("field[@id='" & _
Request.Form.Key(i) & "']/value")
f.Text = Request.Form(i)
end if
next

'Save the modified XML file
xmlDoc.save xmlfile

'Release all object references
set xmlDoc=nothing
set rootEl=nothing
set f=nothing

'Load the modified XML file with a style sheet that
'allows the client to see the edited information
loadFile xmlfile,server.MapPath("tool_updated.xsl")
end function

'If the form has been submitted update the
'XML file and display result - if not,
'transform the XML file for editing
if Request.Form("btn_sub")="" then
loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl")
else
updateFile server.MapPath("tool.xml")
end if
%>