📄 admin_temploadsave.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="34">
  <tr bgcolor="#1C3566" valign="middle" align="center" height="22"> 
    <td width="100%"><b>
					<a href="admin_tempadd.asp"><font color="#FFFFFF">模版添加</font></a><font color="#FFFFFF">&nbsp;|&nbsp;</font><a href="admin_tempload.asp"><font color="#FFFFFF">模版导入</font></a><font color="#FFFFFF">&nbsp;|&nbsp;</font><a href="admin_templist.asp"><font color="#FFFFFF">模版列表</font></a><font color="#FFFFFF">&nbsp;|&nbsp;</font><a href="admin_tempmake.asp"><font color="#FFFFFF">模板生成</font></a></td>
  </tr>
</table>
<br><script>
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=90&&he<=400)
   obj.style.height=he+i+'px';
else 
   obj.style.height='90px';
}
</script>
<%
dim url
LocalFile=replace(trim(request("LocalFile")),"'","")
url=LocalFile
	Function getHTTPPage(url) 
	'	on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "get",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
		set http=nothing
		if err.number<>0 then err.Clear  
	End function
		
	Function BytesToBstr(body,Cset)
		dim objstream
		set objstream = Server.CreateObject("adodb.stream")
		objstream.Type = 1
		objstream.Mode =3
		objstream.Open
		objstream.Write body
		objstream.Position = 0
		objstream.Type = 2
		objstream.Charset = Cset
		BytesToBstr = objstream.ReadText 
		objstream.Close
		set objstream = nothing
	End Function
	
Temp1= getHTTPPage(url)
cutTemp1=instr(Temp1,"<!-- Temp_Name -->")+18
str=instr(cutTemp1,Temp1,"<!-- Temp_Name End -->")
Temp1=mid(Temp1,cutTemp1,str-cutTemp1)

Temp2= getHTTPPage(url)
cutTemp2=instr(Temp2,"<!-- SystemPath -->")+19
str=instr(cutTemp2,Temp2,"<!-- SystemPath End -->")
Temp2=mid(Temp2,cutTemp2,str-cutTemp2)

Temp3= getHTTPPage(url)
cutTemp3=instr(Temp3,"<!-- Page_Css -->")+17
str=instr(cutTemp3,Temp3,"<!-- Page_Css End -->")
Temp3=mid(Temp3,cutTemp3,str-cutTemp3)

Temp4= getHTTPPage(url)
cutTemp4=instr(Temp4,"<!-- Page_Head -->")+18
str=instr(cutTemp4,Temp4,"<!-- Page_Head End -->")
Temp4=mid(Temp4,cutTemp4,str-cutTemp4)

Temp5= getHTTPPage(url)
cutTemp5=instr(Temp5,"<!-- Page_top -->")+17
str=instr(cutTemp5,Temp5,"<!-- Page_top End -->")
Temp5=mid(Temp5,cutTemp5,str-cutTemp5)

Temp6= getHTTPPage(url)
cutTemp6=instr(Temp6,"<!-- Page_bottom -->")+20
str=instr(cutTemp6,Temp6,"<!-- Page_bottom End -->")
Temp6=mid(Temp6,cutTemp6,str-cutTemp6)

Temp7= getHTTPPage(url)
cutTemp7=instr(Temp7,"<!-- Page_Foot -->")+18
str=instr(cutTemp7,Temp7,"<!-- Page_Foot End -->")
Temp7=mid(Temp7,cutTemp7,str-cutTemp7)

Temp8= getHTTPPage(url)
cutTemp8=instr(Temp8,"<!-- Page_Index -->")+19
str=instr(cutTemp8,Temp8,"<!-- Page_Index End -->")
Temp8=mid(Temp8,cutTemp8,str-cutTemp8)

Temp18= getHTTPPage(url)
cutTemp18=instr(Temp18,"<!-- Page_VIPIndex -->")+22
str=instr(cutTemp18,Temp18,"<!-- Page_VIPIndex End -->")
Temp18=mid(Temp18,cutTemp18,str-cutTemp18)

Temp9= getHTTPPage(url)
cutTemp9=instr(Temp9,"<!-- Page_listbook -->")+22
str=instr(cutTemp9,Temp9,"<!-- Page_listbook End -->")
Temp9=mid(Temp9,cutTemp9,str-cutTemp9)

Temp10= getHTTPPage(url)
cutTemp10=instr(Temp10,"<!-- Page_lookbook -->")+22
str=instr(cutTemp10,Temp10,"<!-- Page_lookbook End -->")
Temp10=mid(Temp10,cutTemp10,str-cutTemp10)

Temp11= getHTTPPage(url)
cutTemp11=instr(Temp11,"<!-- Page_readbook -->")+22
str=instr(cutTemp11,Temp11,"<!-- Page_readbook End -->")
Temp11=mid(Temp11,cutTemp11,str-cutTemp11)

Temp12= getHTTPPage(url)
cutTemp12=instr(Temp12,"<!-- Page_Search -->")+20
str=instr(cutTemp12,Temp12,"<!-- Page_Search End -->")
Temp12=mid(Temp12,cutTemp12,str-cutTemp12)

Temp13= getHTTPPage(url)
cutTemp13=instr(Temp13,"<!-- Page_topten -->")+20
str=instr(cutTemp13,Temp13,"<!-- Page_topten End -->")
Temp13=mid(Temp13,cutTemp13,str-cutTemp13)

Temp14= getHTTPPage(url)
cutTemp14=instr(Temp14,"<!-- Page_kfindex -->")+21
str=instr(cutTemp14,Temp14,"<!-- Page_kfindex End -->")
Temp14=mid(Temp14,cutTemp14,str-cutTemp14)

Temp15= getHTTPPage(url)
cutTemp15=instr(Temp15,"<!-- Page_user -->")+18
str=instr(cutTemp15,Temp15,"<!-- Page_user End -->")
Temp15=mid(Temp15,cutTemp15,str-cutTemp15)

Temp16= getHTTPPage(url)
cutTemp16=instr(Temp16,"<!-- Page_author -->")+20
str=instr(cutTemp16,Temp16,"<!-- Page_author End -->")
Temp16=mid(Temp16,cutTemp16,str-cutTemp16)

Temp17= getHTTPPage(url)
cutTemp17=instr(Temp17,"<!-- Page_Error -->")+19
str=instr(cutTemp17,Temp17,"<!-- Page_Error End -->")
Temp17=mid(Temp17,cutTemp17,str-cutTemp17)

Temp18= getHTTPPage(url)
cutTemp18=instr(Temp18,"<!-- Page_viewbook -->")+22
str=instr(cutTemp18,Temp18,"<!-- Page_viewbook End -->")
Temp18=mid(Temp18,cutTemp18,str-cutTemp18)

Temp19= getHTTPPage(url)
cutTemp19=instr(Temp19,"<!-- Page_readviewbook -->")+26
str=instr(cutTemp19,Temp19,"<!-- Page_readviewbook End -->")
Temp19=mid(Temp19,cutTemp19,str-cutTemp19)

Temp20= getHTTPPage(url)
cutTemp20=instr(Temp20,"<!-- Page_viewallbook -->")+25
str=instr(cutTemp20,Temp20,"<!-- Page_viewallbook End -->")
Temp20=mid(Temp20,cutTemp20,str-cutTemp20)

Temp21= getHTTPPage(url)
cutTemp21=instr(Temp21,"<!-- Page_1 -->")+15
str=instr(cutTemp21,Temp21,"<!-- Page_1 End -->")
Temp21=mid(Temp21,cutTemp21,str-cutTemp21)
12 下一页
⌨️ 快捷键说明

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