<!--#include file="conn.asp"-->
<%
'-------------------------------------
'功能：管理员管理网站信息
'更新：2004-12-27 11:54
'作者：未知-部落忍者
'演示：http://www.0cc.cn/link/
'-------------------------------------

	if session("cutelink_admin")<>"OK" then
        response.redirect("admin_login.asp")
	end if
	dim username
	username=hx.checkstr(request("username"),12)
	dim strerror
	dim rs,sql

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改网站信息_<%=WebName & ChannelName%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="md5.asp"-->
<%
sub saveedit
dim username,sitename,siteurl,sitelogo,email,password,pwdconfirm,webtype,siteintro
username=hx.checkstr(request.form("username"),12)
sitename=hx.checkstr(request.form("sitename"),12)
siteurl=hx.checkstr(request.form("siteurl"),100)
sitelogo=hx.checkstr(request.form("sitelogo"),100)
email=hx.checkstr(request.form("email"),50)
password=hx.checkstr(request.form("password"),16)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),16)
webtype=request.form("webtype")
siteintro=hx.checkstr(request.form("siteintro"),250)
dim outc,outj,outp,inc,inj,inp,zdate,indate,outdate,fromdate
outc=cint(request.form("outc"))
outj=cint(request.form("outj"))
outp=CSng(request.form("outp"))
inc=cint(request.form("inc"))
inj=cint(request.form("inj"))
inp=CSng(request.form("inp"))
fromdate=cdate(request.form("fromdate"))
zdate=cdate(request.form("dateandtime"))
indate=cdate(request.form("indate"))
outdate=cdate(request.form("outdate"))

dim blnerror
blnerror=false
if username="" then
	blnerror=true
	strerror="<li>意外出错，请选择用户名"
else
	sql="select * from CL_Link where username='"&username&"'"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,2
	if rs.eof then
		blnerror=true
		strerror="<li>没有该用户"
	end if	
end if
if sitename="" or siteurl="" or password="" or siteintro="" or email="" then
blnerror=true
strerror=strerror & "<li>请检查是否有必填信息没有填写"
end if
if hx.blnfilter(sitename) then
	blnerror = true
	strerror = strerror & "<li>网站名称不能包含某些特殊关键词"
end if
if hx.blnfilter(siteintro) then
	blnerror = true
	strerror = strerror & "<li>网站简介不能包含某些特殊关键词"
end if
if sitelogo="" then
sitelogo="http://" & hx.BaseUrl & "images/wu.gif"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择网站类型"
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "<li>两次密码不相同"
end if

if blnerror=true then
	
	response.write strerror
	response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a> << <a href=admin_manage.asp>返回管理首页</a></p>"

else

        rs("outc")=outc
        rs("outj")=outj
        rs("outp")=outp
        rs("inc")=inc
        rs("inj")=inj
        rs("inp")=inp
        rs("email")=email
		rs("sitename")=sitename
		rs("webtype")=webtype
		if len(password)<16 then
			rs("password")=md5(password,16)
		end if
		rs("siteurl")=siteurl
		rs("siteintro")=siteintro
		rs("sitelogo")=sitelogo
        rs("indate")=indate
        rs("outdate")=outdate
        rs("fromdate")=fromdate
        rs("dateandtime")=zdate
        rs.Update
	response.write "<p><li>修改成功</p>"
	response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a> << <a href=admin_manage.asp>返回管理首页</a></p>"

end if
end sub
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="main_title1">
  <tr> 
    <td align="center"><a href="admin_manage.asp">管理首页</a> | <a href="admin_manage.asp?action=ListSite">列出所有网站</a> | <a href="admin_manage.asp?action=ShowLog">查看点击记录</a> | 
      <font color="#0000FF">修改网站信息</font></a> | <a href="admin_manage.asp?action=BatchDelform">批量删除</a> | <a href="admin_login.asp?action=exit">退出管理</a></td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="3" cellspacing="0" class="main_tdbg">
  <tr> 
    <td height="30">您的位置:<a href="<%=WebUrl%>">首页</a> 
      -- <a href="admin_manage.asp">管理首页</a> -- 修改网站信息</td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="main_tdbg">
  <tr> 
    <td> <%
	dim action
	action=request("action")
	select case action
	case "saveedit"
		call saveedit
	case else
		call showlist	
	end select

	sub showlist
	dim rs
	rs=hx.execute("select * from CL_Link where username='"&username&"'")
	%> <form action="?username=<%=username%>&Action=saveedit" method="POST">
        <table border="1" bordercolorlight="#000000" cellspacing="0"
bordercolordark="#FFFFFF">
          <tr> 
            <td> <div align="center">用 户 名：</div></td>
            <td colspan="5"><%=rs("username")%>
              <input name="username" type="hidden" id="username" value="<%=rs("username")%>" ></td>
          </tr>
          <tr> 
            <td> <div align="center">网站名称：</div></td>
            <td colspan="5"> <input name="sitename" type="text" id="sitename" value="<%=rs("sitename")%>" size="12" maxlength="12">
              <font color="#CC0000">* 不能超过12个字符（6个汉字）</font></td>
          </tr>
          <tr> 
            <td> <div align="center">网站地址：</div></td>
            <td colspan="5"> <input name="siteurl" type="text" id="siteurl" value="<%=rs("siteurl")%>" size="50" maxlength="110"> 
              <font color="#CC0000">* 不能超过100个字符</font></td>
          </tr>
          <tr> 
            <td> <div align="center">注册时间：</div></td>
            <td colspan="5"> <input name="dateandtime" type="text" id="dateandtime" value="<%=rs("dateandtime")%>" size="16" maxlength="20"> 
            </td>
          </tr>
          <tr> 
            <td>统计时间：</td>
            <td><input name="fromdate" type="text" id="fromdate" value="<%=rs("fromdate")%>" size="16" maxlength="20"> 
            </td>
            <td>点入时间：</td>
            <td> <input type="text" name="indate" size="10" maxlength="10" value="<%=rs("indate")%>"> 
            </td>
            <td>点出时间：</td>
            <td> <input type="text" name="outdate" size="10" maxlength="10" value="<%=rs("outdate")%>"> 
            </td>
          </tr>
          <tr> 
            <td>总计点入：</td>
            <td> <input type="text" name="inc" size="16" maxlength="8" value="<%=rs("inc")%>"> 
            </td>
            <td>今天点入 ：</td>
            <td> <font color="#FF0000"> 
              <input type="text" name="inj" size="16" maxlength="8" value="<%=rs("inj")%>">
              </font></td>
            <td>平均点入 ：</td>
            <td> <input type="text" name="inp" size="16" maxlength="8" value="<%=rs("inp")%>"> 
            </td>
          </tr>
          <tr> 
            <td>总击点出：</td>
            <td> <input type="text" name="outc" size="16" maxlength="8" value="<%=rs("outc")%>"> 
            </td>
            <td>今天点出：</td>
            <td> <font color="#FF0000"> 
              <input type="text" name="outj" size="16" maxlength="8" value="<%=rs("outj")%>">
              </font></td>
            <td>平均点出： </td>
            <td> <input type="text" name="outp" size="16" maxlength="8" value="<%=rs("outp")%>"> 
            </td>
          </tr>
          <tr> 
            <td> <div align="center">图片地址：</div></td>
            <td colspan="4"> <input name="sitelogo" type="text" id="sitelogo" value="<%=rs("sitelogo")%>" size="50" maxlength="100"> 
              <br>
              可选项，不能超过100个字符 （图片大小尺寸为:88*31，如果暂时没有，请留空） </td>
            <td><img src="<%=rs("sitelogo")%>" width=88 height=31></td>
          </tr>
          <tr> 
            <td> <div align="center">网站类型：</div></td>
            <td colspan="5"> <select name="webtype" size="1">
                <%call hx.listwebtype(rs("webtype"))%>
              </select> </td>
          </tr>
          <tr> 
            <td> <div align="center">密　　码：</div></td>
            <td colspan="5"> <input name="password" type="password" id="password" value="<%=rs("password")%>" size="10" maxlength="12"> 
              <font color="#CC0000">* 不能超过12个字符</font></td>
          </tr>
          <tr> 
            <td> <div align="center">密码确认：</div></td>
            <td colspan="5"> <input name="pwdconfirm" type="password" id="pwdconfirm" value="<%=rs("password")%>" size="10" maxlength="12"> 
              <font color="#CC0000">* 请再输一遍确认</font></td>
          </tr>
          <tr> 
            <td> <div align="center">联系邮箱：</div></td>
            <td colspan="5"> <input type="text" name="email" size="30" maxlength="50" value="<%=rs("email")%>"> 
              <font color="#CC0000">* 请输入有效的邮件地址，不能超过50个字符</font></td>
          </tr>
          <tr> 
            <td> <div align="center">网站简介：</div></td>
            <td colspan="5"> <textarea name="siteintro" cols="70" rows="4" id="siteintro"><%=rs("siteintro")%></textarea>
              <br>
              <font color="#FF0000">*</font> <font color="#CC0000">不能超过200个字符（100个汉字）</font> 
            </td>
          </tr>
          <tr> 
            <td colspan="6" align="center" class="td"> <input type="submit" value=" 确 定 " name="yes"> 
              <input name="reset" type="reset"  
value=" 重 写 "> </td>
          </tr>
        </table>
      </form>
      <%end sub%> 


	  </td>
  </tr>
</table>
<!--#include file="under.asp"-->
<%Closedatabase%>
</body>
</html>
