📄 admin_makeinfo.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!-- #include file="../conn.asp" --><!-- #include file="session.asp" --><!--#include file="../inc/config.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>
<body topmargin="1" leftmargin="1">
<%Select Case request.querystring("info")
	Case "authoradd"
		Call authoradd()
	Case "commend"
		Call commend()
	Case "contribute"
		Call contribute()
	Case "regtext"
		Call regtext()
	Case "webreadme"
		Call webreadme()
	Case "directory"
		Call directory()
	Case "saveauthoradd"
		Call saveauthoradd()
	Case "savecommend"
		Call savecommend()
	Case "savecontribute"
		Call savecontribute()
	Case "saveregtext"
		Call saveregtext()
	Case "savewebreadme"
		Call savewebreadme()
	Case "savedirectory"
		Call savedirectory()
	Case "about_tqsm"
		Call about_tqsm()
	Case "about_map"
		Call about_map()
	Case "about_ad"
		Call about_ad()
	Case "about_biz"
		Call about_biz()
	Case "about_us"
		Call about_us()
	Case "Authorregtext"
		Call Authorregtext()
	Case "saveabout_tqsm"
		Call saveabout_tqsm()
	Case "saveabout_map"
		Call saveabout_map()
	Case "saveabout_ad"
		Call saveabout_ad()
	Case "saveabout_biz"
		Call saveabout_biz()
	Case "saveabout_us"
		Call saveabout_us()
	Case "saveAuthorregtext"
		Call saveAuthorregtext()
end select 
%>
<%sub authoradd()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="authoradd" method="post" action="admin_makeinfo.asp?info=saveauthoradd">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30">
			<p align="center"><b><font color="#FFFFFF">编辑作品签约方案</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea class='form' style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_authoradd.txt"--></textarea></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#DFDFDF">
			<p align="center"><input name="change" class="button" value="编辑作品签约方案" type="submit"></p>
			</td>
		</tr>
	</form>
</table>
<%end sub%>
<%sub saveauthoradd()
filename="../inc/about_authoradd.txt"
if request("body")<>"" then
body=ScriptHtml(request("body"),"Object",2)
body=ScriptHtml(body,"Script",2)
body=Replace(Replace(body,"<"&"%",""),"%"&">","")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write body
fout.close
set fout=nothing
set fso=nothing
Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n操作成功！');location.href='admin_webreadme.asp';</script>")
Response.end
end if
end sub%>
<%sub Authorregtext()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="Authorregtext" method="post" action="admin_makeinfo.asp?info=saveAuthorregtext">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30">
			<p align="center"><b><font color="#FFFFFF">编辑驻站必读方案</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea class='form' style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/Authorregtext.txt"--></textarea></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#DFDFDF">
			<p align="center"><input name="change" class="button" value="编辑驻站必读方案" type="submit"></p>
			</td>
		</tr>
	</form>
</table>
<%end sub%>
<%sub saveAuthorregtext()
filename="../inc/Authorregtext.txt"
if request("body")<>"" then
body=ScriptHtml(request("body"),"Object",2)
body=ScriptHtml(body,"Script",2)
body=Replace(Replace(body,"<"&"%",""),"%"&">","")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write body
fout.close
set fout=nothing
set fso=nothing
Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n操作成功！');location.href='admin_webreadme.asp';</script>")
Response.end
end if
end sub%>
<%sub about_tqsm()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="about_tqsm" method="post" action="admin_makeinfo.asp?info=saveabout_tqsm">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30">
			<p align="center"><b><font color="#FFFFFF">编辑服务条款及免责声明</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea class='form' style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_tqsm.txt"--></textarea></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#DFDFDF">
			<p align="center"><input name="change" class="button" value="编辑服务条款" type="submit"></p>
			</td>
		</tr>
	</form>
</table>
<%end sub%>
<%sub saveabout_tqsm()
filename="../inc/about_tqsm.txt"
if request("body")<>"" then
body=ScriptHtml(request("body"),"Object",2)
body=ScriptHtml(body,"Script",2)
body=Replace(Replace(body,"<"&"%",""),"%"&">","")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write body
fout.close
set fout=nothing
set fso=nothing
Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n操作成功！');location.href='admin_webreadme.asp';</script>")
Response.end
end if
end sub%>
<%sub about_map()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="about_map" method="post" action="admin_makeinfo.asp?info=saveabout_map">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30">
			<p align="center"><b><font color="#FFFFFF">编辑网站地图</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea class='form' style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_map.txt"--></textarea></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#DFDFDF">
			<p align="center"><input name="change" class="button" value="编辑网站地图" type="submit"></p>
			</td>
		</tr>
	</form>
</table>
<%end sub%>
<%sub saveabout_map()
filename="../inc/about_map.txt"
if request("body")<>"" then
body=ScriptHtml(request("body"),"Object",2)
body=ScriptHtml(body,"Script",2)
body=Replace(Replace(body,"<"&"%",""),"%"&">","")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write body
fout.close
set fout=nothing
set fso=nothing
Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n操作成功！');location.href='admin_webreadme.asp';</script>")
Response.end
end if
end sub%>
<%sub about_ad()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="about_ad" method="post" action="admin_makeinfo.asp?info=saveabout_ad">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30">
			<p align="center"><b><font color="#FFFFFF">编辑广告合作方案</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea class='form' style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_ad.txt"--></textarea></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#DFDFDF">
			<p align="center"><input name="change" class="button" value="编辑广告合作方案" type="submit"></p>
			</td>
		</tr>
	</form>
</table>
<%end sub%>
<%sub saveabout_ad()
filename="../inc/about_ad.txt"
if request("body")<>"" then
body=ScriptHtml(request("body"),"Object",2)
body=ScriptHtml(body,"Script",2)
body=Replace(Replace(body,"<"&"%",""),"%"&">","")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write body
fout.close
set fout=nothing
set fso=nothing
Response.Write ("<script>alert('CnEndWeb（终点）提醒：\n\n操作成功！');location.href='admin_webreadme.asp';</script>")
Response.end
end if
end sub%>
<%sub about_biz()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="about_biz" method="post" action="admin_makeinfo.asp?info=saveabout_biz">
12 下一页
⌨️ 快捷键说明

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