網(wǎng)站偽靜態(tài)規則生成代碼可嵌入網(wǎng)站后臺管理

為方便網(wǎng)站修改維護偽靜態(tài)規則，本站放出自己使用的網(wǎng)站偽靜態(tài)規則生成小程序。

PS：網(wǎng)站偽靜態(tài)能夠提高網(wǎng)站訪(fǎng)問(wèn)體驗，增加搜索引擎對網(wǎng)站的收錄，是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>

<% 
'========讀取原來(lái)的規則=======================
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("定義規則為空，請開(kāi)始定義規則")
	end if
  Else
      Response.Write("您還未開(kāi)通，點(diǎn)擊獲按鈕取即可開(kāi)通")
  End if
  Set objFSO = Nothing 
End Function 
'=============創(chuàng  )建規則========================
 Function createFile(filePath,objStr ) 
  Dim fileObj,objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
     '刪除原來(lái)的文件
		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 '向文件寫(xiě)入數據，覆蓋形式寫(xiě)入
	 Set objFSO = Nothing 
 End Function  
 if clng(request.QueryString("act"))=1 then
    call createFile(rulePath,request.Form("rullContent"))
	Response.Write("<script>alert('成功生成偽靜態(tài)文件！');this.location.href='reWrite.asp';</script>")
 end if

 %>

點(diǎn)擊下載：偽靜態(tài)生成