⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_jbxx.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file=conn.asp--> 
<!--#include file=char.asp--> 
<!--#include file=Admin_page.asp--> 

<%

if session("AdminName") = "" then
	Session.Abandon
    response.Redirect "Admin_Login.asp"
end if

if Session("AdminName")<>"admin" then
			response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页!');"
			response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
			response.end
   end if

dim Flag
Flag=Request.QueryString("Flag")

set rs=conn.execute("select * from jbxx")
	webname=rs("webname")
	website=rs("website")
	weblogo=rs("weblogo")
	ver=rs("ver")
	linktype=rs("linktype")
	isgd=rs("isgd")
	glgjz=rs("glgjz")
	isymzc=rs("isymzc")
	hzyh=rs("hzyh")
	a=split(hzyh,",")
	hzyh=a(0)
	hzyh0=a(1)
	hzyh1=a(2)
	gxbyhgs=rs("gxbyhgs")
rs.close

if flag="edit" then

	webname=HTMLEncode(request.form("webname"))
	website=HTMLEncode(request.form("website"))
	weblogo=HTMLEncode(request.form("weblogo"))
	ver=HTMLEncode(request.form("ver"))
	linktype=HTMLEncode(request.form("linktype"))
	isgd=HTMLEncode(request.form("isgd"))	
	glgjz=HTMLEncode(request.form("glgjz"))	
	isymzc=HTMLEncode(request.form("isymzc"))
	hzyh0=HTMLEncode(request.form("hzyh"))
	hzyh1=HTMLEncode(request.form("hzyh0"))
	hzyh2=HTMLEncode(request.form("hzyh1"))
	hzyh=hzyh0&","&hzyh1&","&hzyh2
	gxbyhgs=HTMLEncode(request.form("gxbyhgs"))
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from jbxx where id=1"
	rs.open sql,conn,1,2
	
	rs("webname")=webname
	rs("website")=website
	rs("weblogo")=weblogo
	rs("ver")=ver
	rs("linktype")=linktype				
	rs("isgd")=isgd
	rs("glgjz")=glgjz
	rs("hzyh")=hzyh
	rs("isymzc")=isymzc
	rs("gxbyhgs")=gxbyhgs
	rs.update
	rs.close
	
	response.redirect "admin_jbxx.asp"
end if

%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../index.css" rel="stylesheet" type="text/css">
<title>后台管理</title>
</head>

<body>
<br>
<div align="center">
	<script language="vbscript">
	sub chat()
	
	if formadd.webname.value="" then
	msgbox "请输入网站名称!",48,"注意!"
	formadd.webname.focus()
	exit sub
	end if
	
	if formadd.weblogo.value="" then
	msgbox "请输入网站图标地址!",48,"注意!"
	formadd.weblogo.focus()
	exit sub
	end if
		
	formadd.submit()
	end sub
	-->
	</script>                           
	<form method="POST" action="admin_jbxx.asp?flag=edit" name="formadd">
	<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table2">
		<tr height =30>
			<td bgcolor="#B3B3B3" width="888" colspan="3">
				<p align="center">配置站点信息</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				网站名称:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="text" name="webname" size="22" value="<%=webname%>"> *</td>
			<td bgcolor="#EAEAEA" width="388">
				 </td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				网站地址:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="text" name="website" size="38" value="<%=website%>"></td>
			<td bgcolor="#EAEAEA" width="388">
				 </td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				网站图标:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="text" name="weblogo" size="38" value="<%=weblogo%>"> *</td>
			<td bgcolor="#EAEAEA" width="388">
				相对地址和绝对地址都行</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				版本:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="text" name="ver" size="8" value="<%=ver%>"></td>
			<td bgcolor="#EAEAEA" width="388">
				 </td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				是否有过渡页面:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="radio" value="1" name="isgd" <%if isgd=1 then response.write "checked"%>>有 
				<input type="radio" value="0" name="isgd" <%if isgd=0 then response.write "checked"%>> 没有</td>
			<td bgcolor="#EAEAEA" width="388">
				如果没有过渡页面,点标题就直接链接到对方网站。</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				链接形式:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="radio" value="1" name="linktype" <%if linktype=1 then response.write "checked"%>> 整个框架 
				<input type="radio" value="2" name="linktype" <%if linktype=2 then response.write "checked"%>> 左右框架&nbsp; 
				<input type="radio" value="3" name="linktype" <%if linktype=3 then response.write "checked"%>> 上下框架</td>
			<td bgcolor="#EAEAEA" width="388">
				链接形式是指链接到对方网站的时候是以什么形式。</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				网摘过滤字符:</td>
			<td bgcolor="#EAEAEA" width="331">
				<textarea rows="7" name="glgjz" cols="43"><%=glgjz%></textarea></td>
			<td bgcolor="#EAEAEA" width="388" valign="top">
				关键字中间用“,”号隔开</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				是否允许匿名收藏:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="radio" value="0" name="isymzc" <%if isymzc=0 then response.write "checked"%> checked>不允许
				<input type="radio" value="1" name="isymzc" <%if isymzc=1 then response.write "checked"%>>允许</td>
			<td bgcolor="#EAEAEA" width="388">
				如果允许则要审核才能发布!</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				首页合作用户:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="text" name="hzyh" size="11" value="<%=hzyh%>">
				<input type="text" name="hzyh0" size="11" value="<%=hzyh0%>">
				<input type="text" name="hzyh1" size="11" value="<%=hzyh1%>"></td>
			<td bgcolor="#EAEAEA" width="388">
				最多允许三个(直接输入用户的用户ID号)</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				首页贡献榜推荐用户个数:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="text" name="gxbyhgs" size="11" value="<%=gxbyhgs%>"></td>
			<td bgcolor="#EAEAEA" width="388">
				 </td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="211">
				相关操作:</td>
			<td bgcolor="#EAEAEA" width="331">
				<input type="button" value="设置" name="B1" onclick="chat()"></td>
			<td bgcolor="#EAEAEA" width="388">
				 </td>
		</tr>
	</table>
	</form>

</div></body>

</html>

⌨️ 快捷键说明

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