<!--#include file="utf-8.asp" -->
<!--#include file="js/Function.asp" -->
<!--#include file="CheckAdmin.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META NAME="copyright" CONTENT="Copyright 2010-2012 - yidacms.com" />
<META NAME="Author" CONTENT="世纪伟成  yidacms.com" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="js/admin.css" rel="stylesheet" type="text/css">
<title>样式配置！</title>
<script type="text/javascript" src="js/pop-up.js"></script>
</head>
<body>
<%
'版权：世纪伟成(http://yidacms.com)
'本信息不会影响您网站的正常访问，无论免费用户或是收费用户请保留这里的信息.
'如果您删除了这里的版权信息,将追究法律责任.

		if request("yidacms")="viplist" Then
			if len(trim(request.Form("vipzhnewslist")))<1 then
				response.write ("<script language=javascript> alert(文新闻条数必填，且不能少于1个字符！');history.back(-1);</script>")
				response.end
			end if
			
			if len(trim(request.Form("vipzhproductslist")))<1 then
				response.write ("<script language=javascript> alert('产品条数必填，且不少于1个字符！');history.back(-1);</script>")
				response.end
			end if 

			if len(trim(request.Form("vipzhphotolist")))<1 then
				response.write ("<script language=javascript> alert('图文条数必填，且不少于1个字符！');history.back(-1);</script>")
				response.end
			end if 
		  
		dim rs,sql
		set rs=server.createobject("adodb.recordset")
		sql="select * from viplist" 
		rs.open sql,dbok,1,3
			rs("vipzhnewslist")=trim(request.form("vipzhnewslist"))
			rs("vipzhproductslist")=trim(request.form("vipzhproductslist"))
			rs("vipzhphotolist")=trim(request.form("vipzhphotolist"))				
		rs.update
		rs.close
		set rs=nothing
		response.write "<script language=javascript> alert('设置成功！');history.back(-1);</script>"
		End If 

                 
        	dim shuaiweb_tempurl
		set rs=server.createobject("adodb.recordset")
        	sql="select * from shuaiweb_templateurl ORDER BY id DESC"
		rs.open sql,dbok,1,1
		shuaiweb_tempurl = rs("shuaiweb_temp")
		set rs=nothing

		dim admin_temp
		admin_temp=trim(request("admin_temp"))
		select case admin_temp
        	case "viplist"
		call viplist()
		end select
	
		sub viplist()
		set rs = server.createobject("adodb.recordset")
		sql="select * from viplist"
		rs.open sql,dbok,1,1
%>
		<table width="98%" border="0" cellpadding="10" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse" bgcolor="#FFFFFF" align="center">
		<form id="form3" name="form3" method="post" action="admin_temp.asp?yidacms=viplist">
		  <tr>
			<td onMouseOver="this.id='aa'" onMouseOut="this.id='bb'" class="cc">新闻列表多少条后翻页?<br /><input name="vipzhnewslist" type="text" class="win" value="<%=rs("vipzhnewslist")%>"/> 条 <font color=red>(必填)</font></td>
		  </tr>
		  <tr>
			<td onMouseOver="this.id='aa'" onMouseOut="this.id='bb'" class="cc">产品列表多少条后翻页?<br /><input name="vipzhproductslist" type="text" class="win" value="<%=rs("vipzhproductslist")%>"/> 条 <font color=red>(必填)</font></td>
		  </tr>
		  <tr>
			<td onMouseOver="this.id='aa'" onMouseOut="this.id='bb'" class="cc">图文列表多少条后翻页?<br /><input name="vipzhphotolist" type="text" class="win" value="<%=rs("vipzhphotolist")%>"/> 条 <font color=red>(必填)</font></td>
		  </tr>
<tr>
	<td>
<input type="submit" name="Submit" value="设 置" class="inanniu"/> <input type=button onclick="history.back(-1);" value="返 回" class="inanniu">
	</td>
</tr>
		</form>
		</table>
<%
end sub
%>
</body>
</html>
