<!--#include file="conn.asp" -->
<%if request.cookies("admin")("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if request.cookies("admin")("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<html>
<head>
<link href="../image/css.css" rel="stylesheet" type="text/css">
</head>
<body class="tdcolor">
<%function HTMLEncode(fString)
fString = Replace(fString, "&nbsp;", "")
fString = Replace(fString, "<br>", "")
fString = Replace(fString, "<BR>", "")
fString = Replace(fString, CHR(32), "")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "")
fString = Replace(fString, CHR(10), "")
HTMLEncode = fString
end function

dim action
action=request.QueryString("action")
select case action
case ""
set rs=server.createobject("adodb.recordset")
rs.open"select * from shop_config order by id desc",conn,1,1
if rs.eof then
else
rs.PageSize =1 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
For i=1 To x%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="bgcolor">
<tr class="managetop"><td colspan="2">第<%=rs("id")%>项网站信息数据查阅</td></tr>
<tr class="tdcolor">
<td width="20%">webname</td>
<td><%=HTMLEncode(left(rs("webname"),30))%></td>
</tr>
<tr class="tdcolor">
<td>webemail</td>
<td><%=HTMLEncode(left(rs("webemail"),30))%></td>
</tr>
<tr class="tdcolor">
<td>mailaddress</td>
<td><%=HTMLEncode(left(rs("mailaddress"),30))%></td>
</tr>
<tr class="tdcolor">
<td>mailusername</td>
<td><%=HTMLEncode(left(rs("mailusername"),30))%></td>
</tr>
<tr class="tdcolor">
<td>mailuserpass</td>
<td><%=HTMLEncode(left(rs("mailuserpass"),30))%></td>
</tr>
<tr class="tdcolor">
<td>mailname</td>
<td><%=HTMLEncode(left(rs("mailname"),30))%></td>
</tr>
<tr class="tdcolor">
<td>mailsend</td>
<td><%=HTMLEncode(left(rs("mailsend"),30))%></td>
</tr>
<tr class="tdcolor">
<td>mailselect</td>
<td><%=HTMLEncode(left(rs("mailselect"),30))%></td>
</tr>
<tr class="tdcolor">
<td>regtiaoyue</td>
<td><%=HTMLEncode(left(rs("regtiaoyue"),30))%></td>
</tr>
<tr class="tdcolor">
<td>gonggao</td>
<td><%=HTMLEncode(left(rs("gonggao"),30))%></td>
</tr>
<tr class="tdcolor">
<td>dizhi</td>
<td><%=HTMLEncode(left(rs("dizhi"),30))%></td>
</tr>
<tr class="tdcolor">
<td>youbian</td>
<td><%=HTMLEncode(left(rs("youbian"),30))%></td>
</tr>
<tr class="tdcolor">
<td>dianhua</td>
<td><%=HTMLEncode(left(rs("dianhua"),30))%></td>
</tr>
<tr class="tdcolor">
<td>copyright</td>
<td><%=HTMLEncode(left(rs("copyright"),30))%></td>
</tr>
<tr class="tdcolor">
<td>weblogo</td>
<td><%=HTMLEncode(left(rs("weblogo"),30))%></td>
</tr>
<tr class="tdcolor">
<td>webbanner</td>
<td><%=HTMLEncode(left(rs("webbanner"),30))%></td>
</tr>
<tr class="tdcolor">
<td>weburl</td>
<td><%=HTMLEncode(left(rs("weburl"),30))%></td>
</tr>
<tr class="tdcolor">
<td>huikuanfangshi</td>
<td><%=HTMLEncode(left(rs("huikuanfangshi"),30))%></td>
</tr>
<tr class="tdcolor">
<td>musicurl</td>
<td><%=HTMLEncode(left(rs("musicurl"),30))%></td>
</tr>
<tr class="tdcolor">
<td>musicd</td>
<td><%=HTMLEncode(left(rs("musicd"),30))%></td>
</tr>
<tr class="tdcolor">
<td>gouwuliucheng</td>
<td><%=HTMLEncode(left(rs("gouwuliucheng"),30))%></td>
</tr>
<tr class="tdcolor">
<td>songhuofeiyong</td>
<td><%=HTMLEncode(left(rs("songhuofeiyong"),30))%></td>
</tr>
<tr class="tdcolor">
<td>yunshushuoming</td>
<td><%=HTMLEncode(left(rs("yunshushuoming"),30))%></td>
</tr>
<tr class="tdcolor">
<td>gongzuoshijian</td>
<td><%=HTMLEncode(left(rs("gongzuoshijian"),30))%></td>
</tr>
<tr class="tdcolor">
<td>shouhoufuwu</td>
<td><%=HTMLEncode(left(rs("shouhoufuwu"),30))%></td>
</tr>
<tr class="tdcolor">
<td>shiyongfalv</td>
<td><%=HTMLEncode(left(rs("shiyongfalv"),30))%></td>
</tr>
<tr class="tdcolor">
<td>changjianwenti</td>
<td><%=HTMLEncode(left(rs("changjianwenti"),30))%></td>
</tr>
<tr class="tdcolor">
<td>vip</td>
<td><%=HTMLEncode(left(rs("vip"),30))%></td>
</tr>
<tr class="tdcolor">
<td>jifen</td>
<td><%=HTMLEncode(left(rs("jifen"),30))%></td>
</tr>
<tr class="tdcolor">
<td>jiaoyitiaokuan</td>
<td><%=HTMLEncode(left(rs("jiaoyitiaokuan"),30))%></td>
</tr>
<tr class="tdcolor">
<td>baomi</td>
<td><%=HTMLEncode(left(rs("baomi"),30))%></td>
</tr>
<tr class="tdcolor">
<td>about</td>
<td><%=HTMLEncode(left(rs("about"),30))%></td>
</tr>
<tr class="tdcolor">
<td>lxwm</td>
<td><%=HTMLEncode(left(rs("lxwm"),30))%></td>
</tr>
<tr class="tdcolor">
<td>jtcg</td>
<td><%=HTMLEncode(left(rs("jtcg"),30))%></td>
</tr>
<tr class="tdcolor">
<td>jfhj</td>
<td><%=HTMLEncode(left(rs("jfhj"),30))%></td>
</tr>
<tr class="tdcolor">
<td>vipdyj</td>
<td><%=HTMLEncode(left(rs("vipdyj"),30))%></td>
</tr>
<tr class="tdcolor">
<td>vipsq</td>
<td><%=HTMLEncode(left(rs("vipsq"),30))%></td>
</tr>
<tr class="tdcolor">
<td>viphd</td>
<td><%=HTMLEncode(left(rs("viphd"),30))%></td>
</tr>
<tr class="tdcolor">
<td>regtiaoyue2</td>
<td><%=HTMLEncode(left(rs("regtiaoyue2"),30))%></td>
</tr>
<%rs.movenext
next
rs.close
set rs=nothing
Dim query, a, x, temp
if instr(Request.ServerVariables("QUERY_STRING"), "&")>=0 then
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
end if%>
<tr class="tdcolor">
<td colspan="2" align="center"><%if page<=1 then%>首页 上页
<%else%>
<a href="<%=request.ServerVariables("url")%>?<%=temp%>page=1">首页</a>&nbsp;
<a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=(page-1)%>">上页</a>
<%end if%>
<%if page>=maxpage then%> 下页 尾页
<%else%>
<a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=page+1%>">下页</a>&nbsp;
<a href="<%=request.ServerVariables("url")%>?<%=temp%>page=<%=maxpage%>">尾页</a> 
<%end if%>
页次：<%= page %>/<%=maxpage%>页&nbsp;
共有<%= icount %>条&nbsp;
转到<input tyep="text" name=page size=2 maxlength=5 value="<%=page%>">页<input type=submit value=go></form></td>
</tr>
</table>

<%case "add"%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="bgcolor">
<form name="myform" action="?action=addsave" method="post">
<tr class="managetop"><td colspan="2">增加一项网站信息数据信息<input type="submit" value="添 加" class="go-wenbenkuang"></td></tr>
<tr class="tdcolor">
<td width="20%">webname</td>
<td><input name="webname" id="webname" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>webemail</td>
<td><input name="webemail" id="webemail" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>mailaddress</td>
<td><input name="mailaddress" id="mailaddress" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>mailusername</td>
<td><input name="mailusername" id="mailusername" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>mailuserpass</td>
<td><input name="mailuserpass" id="mailuserpass" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>mailname</td>
<td><input name="mailname" id="mailname" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>mailsend</td>
<td><input name="mailsend" id="mailsend" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>mailselect</td>
<td><input name="mailselect" id="mailselect" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>regtiaoyue</td>
<td><input name="regtiaoyue" id="regtiaoyue" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>gonggao</td>
<td><input name="tdcolor" id="tdcolor" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>dizhi</td>
<td><input name="dizhi" id="dizhi" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>youbian</td>
<td><input name="youbian" id="youbian" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>dianhua</td>
<td><input name="dianhua" id="dianhua" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>copyright</td>
<td><input name="copyright" id="copyright" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>weblogo</td>
<td><input name="weblogo" id="weblogo" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>webbanner</td>
<td><input name="webbanner" id="webbanner" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>weburl</td>
<td><input name="weburl" id="weburl" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>huikuanfangshi</td>
<td><input name="huikuanfangshi" id="huikuanfangshi" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>musicurl</td>
<td><input name="musicurl" id="musicurl" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>musicd</td>
<td><input name="musicd" id="musicd" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>gouwuliucheng</td>
<td><input name="gouwuliucheng" id="gouwuliucheng" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>songhuofeiyong</td>
<td><input name="songhuofeiyong" id="songhuofeiyong" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>yunshushuoming</td>
<td><input name="yunshushuoming" id="yunshushuoming" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>gongzuoshijian</td>
<td><input name="gongzuoshijian" id="gongzuoshijian" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>shouhoufuwu</td>
<td><input name="shouhoufuwu" id="shouhoufuwu" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>shiyongfalv</td>
<td><input name="shiyongfalv" id="shiyongfalv" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>changjianwenti</td>
<td><input name="changjianwenti" id="changjianwenti" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>vip</td>
<td><input name="vip" id="vip" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>jifen</td>
<td><input name="jifen" id="jifen" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>jiaoyitiaokuan</td>
<td><input name="jiaoyitiaokuan" id="jiaoyitiaokuan" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>baomi</td>
<td><input name="baomi" id="baomi" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>about</td>
<td><input name="about" id="about" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>lxwm</td>
<td><input name="lxwm" id="lxwm" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>jtcg</td>
<td><input name="jtcg" id="jtcg" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>jfhj</td>
<td><input name="jfhj" id="jfhj" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>vipdyj</td>
<td><input name="vipdyj" id="vipdyj" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>vipsq</td>
<td><input name="vipsq" id="vipsq" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>viphd</td>
<td><input name="viphd" id="viphd" size="60" class="wenbenkuang"></td>
</tr>
<tr class="tdcolor">
<td>regtiaoyue2</td>
<td><input name="regtiaoyue2" id="regtiaoyue2" size="60" class="wenbenkuang"></td>
</tr></form>
</table>

<%case "addsave"
set rs=server.createobject("adodb.recordset")
rs.open"select * from shop_config",conn,1,3
rs.addnew
rs("webname")=trim(request("webname"))
rs("webemail")=trim(request("webemail"))
rs("mailaddress")=trim(request("mailaddress"))
rs("mailusername")=trim(request("mailusername"))
rs("mailuserpass")=trim(request("mailuserpass"))
rs("mailname")=trim(request("mailname"))
rs("mailsend")=trim(request("mailsend"))
rs("mailselect")=trim(request("mailselect"))
rs("regtiaoyue")=trim(request("regtiaoyue"))
rs("gonggao")=trim(request("gonggao"))
rs("dizhi")=trim(request("dizhi"))
rs("youbian")=trim(request("youbian"))
rs("dianhua")=trim(request("dianhua"))
rs("copyright")=trim(request("copyright"))
rs("weblogo")=trim(request("weblogo"))
rs("webbanner")=trim(request("webbanner"))
rs("weburl")=trim(request("weburl"))
rs("huikuanfangshi")=trim(request("huikuanfangshi"))
rs("musicurl")=trim(request("musicurl"))
rs("musicd")=trim(request("musicd"))
rs("gouwuliucheng")=trim(request("gouwuliucheng"))
rs("songhuofeiyong")=trim(request("songhuofeiyong"))
rs("yunshushuoming")=trim(request("yunshushuoming"))
rs("gongzuoshijian")=trim(request("gongzuoshijian"))
rs("shouhoufuwu")=trim(request("shouhoufuwu"))
rs("shiyongfalv")=trim(request("shiyongfalv"))
rs("changjianwenti")=trim(request("changjianwenti"))
rs("vip")=trim(request("vip"))
rs("jifen")=trim(request("jifen"))
rs("jiaoyitiaokuan")=trim(request("jiaoyitiaokuan"))
rs("baomi")=trim(request("baomi"))
rs("about")=trim(request("about"))
rs("lxwm")=trim(request("lxwm"))
rs("jtcg")=trim(request("jtcg"))
rs("jfhj")=trim(request("jfhj"))
rs("vipdyj")=trim(request("vipdyj"))
rs("vipsq")=trim(request("vipsq"))
rs("viphd")=trim(request("viphd"))
rs("regtiaoyue2")=trim(request("regtiaoyue2"))
rs.update
rs.close
set rs=nothing
response.Redirect("manage_config.asp")%>

<%end select%>
</body>
</html>
