网站伪静态规则生成代码可嵌入网站后台管理

潍坊华邦网络 2016-02-23 15:58:18 2K 0

链接如果失效，点此上报

为方便网站修改维护伪静态规则，本站放出自己使用的网站伪静态规则生成小程序。

PS：网站伪静态能够提高网站访问体验，增加搜索引擎对网站的收录，是SEOER必不可少的SEO法宝之一。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% dim rulePath
rulePath="/.htaccess"
 %>
<style type="text/css">
form textarea{ border:#ececec solid 3px; background:#F8F8F8}
input[type="submit"]{ height:35px;  width:100px;}
</style>

<form name="form1" method="post" action="?act=1">
  <p>
    <label for="rullContent"></label>
    <textarea name="rullContent" id="rullContent" cols="90" rows="20"><%=FsoReadFile(rulePath) %></textarea></p>
  <p><input type="submit" name="button" id="button" value="提交"></p>
</form>

<% 
'========读取原来的规则=======================
Function FsoReadFile(filePath) 
  dim objFSO,objCountFile
  filePath=server.MapPath(filePath)
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
  IF objFSO.FileExists(filePath)=true Then'判断文件是否存在和文件有内容
     if objFSO.getfile(filePath).Size>0 then
		Set objCountFile = objFSO.OpenTextFile(filePath,1,True) 
		FSOReadFile = objCountFile.ReadAll 
		objCountFile.Close 
		Set objCountFile=Nothing 
    else
	   Response.Write("定义规则为空，请开始定义规则")
	end if
  Else
      Response.Write("您还未开通，点击获按钮取即可开通")
  End if
  Set objFSO = Nothing 
End Function 
'=============创建规则========================
 Function createFile(filePath,objStr ) 
  Dim fileObj,objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
     '删除原来的文件
		IF objFSO.FileExists(filePath)=true Then 
		objFSO.DeleteFile (filePath)
		else
		 objFSO.CreateTextFile (filePath)
		End IF 
	'获取连接信息 
	 Set fileObj = objFSO.opentextfile(filePath,2,true) '
	 fileObj.Writeline objStr '向文件写入数据，覆盖形式写入
	 Set objFSO = Nothing 
 End Function  
 if clng(request.QueryString("act"))=1 then
    call createFile(rulePath,request.Form("rullContent"))
	Response.Write("<script>alert('成功生成伪静态文件！');this.location.href='reWrite.asp';</script>")
 end if

 %>

点击下载：伪静态生成