📄 admin_makeinfo.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		<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_biz.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_biz()
filename="../inc/about_biz.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_us()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="about_us" method="post" action="admin_makeinfo.asp?info=saveabout_us">
		<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_us.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_us()
filename="../inc/about_us.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 commend()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="commend" method="post" action="admin_makeinfo.asp?info=savecommend">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30" align="center"><b><font color="#FFFFFF">编辑作品收录原则</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_commend.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 savecommend()
filename="../inc/about_commend.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 contribute()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="contribute" method="post" action="admin_makeinfo.asp?info=savecontribute">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30" align="center"><b><font color="#FFFFFF">编辑投稿说明</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_contribute.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 savecontribute()
filename="../inc/about_contribute.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 directory()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="directory" method="post" action="admin_makeinfo.asp?info=savedirectory">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30" align="center"><b><font color="#FFFFFF">编辑用户指南</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/about_directory.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 savedirectory()
filename="../inc/about_directory.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 regtext()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="regtext" method="post" action="admin_makeinfo.asp?info=saveregtext">
		<tr>
			<td width="100%" bgcolor="#1C3566"height="30" align="center"><b><font color="#FFFFFF">编辑注册协议</font></b></td>
		</tr>
		<tr>
			<td width="100%" bgcolor="#FFFFFF" height="100%">
			<textarea style="width:100%; height:100%; font-family:宋体; font-size:12pt" rows="19" name="body" cols="102"><!--#include file="../inc/regtext.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 saveregtext()
filename="../inc/regtext.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 webreadme()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
	<form name="webreadme" method="post" action="admin_makeinfo.asp?info=savewebreadme">
		<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_webreadme.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 savewebreadme()
filename="../inc/about_webreadme.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%>
上一页 12
⌨️ 快捷键说明

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