<!--#include file="Conn.asp"-->
<!--#include file="cookies.asp"-->
<HTML>
<HEAD>
<title>商奇评测系统 www.583344.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK href="images/Admin_css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY>
<%
IF Request("C")="E" THEN
Call E()
ElseIF Request("C")="P" THEN
Call P()
ElseIF Request("C")="CC" THEN
Call CC()
END IF
Sub E()
set rsc = Server.CreateObject("ADODB.RecordSet")
sql = "select * from sd_show where id="&request("id")&""
rsc.open sql, conn,1,1
sd_password=rsc("sd_password")
sd_name=rsc("sd_name")
cid=rsc("id")
rsc.close
set rsc=nothing%>
<table height="1" border="0" cellpadding="3"  cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="2" class="admintitle">设置管理密码 （<%=sd_name%>）</td>
  </tr>
<form method="POST" action="?ok=1">
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">密码：</td>
    <td width="80%" bgcolor="#FFFFFF"><input type="hidden" name="toid" value="<%=cid%>">
<input type="text" name="sd_password" size="30" value="<%=sd_password%>">
<input type="submit" value="确认修改" name="B1">
</td>
  </tr>
</form>
</table>
<%END Sub
Sub P()
set rsc = Server.CreateObject("ADODB.RecordSet")
sql = "select * from sd_show where id="&request("id")&""
rsc.open sql, conn,1,1
sd_hits=rsc("sd_hits")
sd_cn_rz=rsc("sd_cn_rz")
sd_tj_px=rsc("sd_tj_px")
sd_jifen=rsc("sd_jifen")
sd_name=rsc("sd_name")
cid=rsc("id")
rsc.close
set rsc=nothing%>
<table height="1" border="0" cellpadding="3"  cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="2" class="admintitle">修改点击、排序、积分 （<%=sd_name%>）</td>
  </tr>
<form method="POST" action="?ok=2">
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">级别：</td>
    <td width="80%" bgcolor="#FFFFFF"><input name="sd_cn_rz" type="radio" value="3"<%if sd_cn_rz=3 then%> checked="checked"<%end if%> >金钻　<input name="sd_cn_rz" type="radio" value="2"<%if sd_cn_rz=2 then%> checked="checked"<%end if%> >蓝钻　<input name="sd_cn_rz" type="radio" value="1"<%if sd_cn_rz=1 then%> checked="checked"<%end if%> >灰钻　<input name="sd_cn_rz" type="radio" value="0"<%if sd_cn_rz=0 then%> checked="checked"<%end if%> >普通</td>
  </tr>
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">排序：</td>
    <td width="80%" bgcolor="#FFFFFF"><input type="text" name="sd_tj_px" size="30" value="<%=sd_tj_px%>" onKeyUp="value=value.replace(/[^\d.]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d.]/g,''))"> 数值高的靠前</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">积分：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_jifen" size="30" value="<%=sd_jifen%>" onKeyUp="value=value.replace(/[^\d.]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d.]/g,''))"> 数值高的靠前</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">点击：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_hits" size="30" value="<%=sd_hits%>" onKeyUp="value=value.replace(/[^\d.]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d.]/g,''))"> 数值高的靠前</td>
  </tr>
  <tr>
    <td height="30" bgcolor="#FFFFFF"></td>
    <td bgcolor="#FFFFFF"><input type="hidden" name="toid" size="20" value="<%=cid%>"><input type="submit" value="确认修改" name="B1">
</td>
  </tr>
</form>
</table>
<%END Sub
Sub CC()
set rs=server.createobject("adodb.recordset")
rs.open "select * from sd_show where id="&request("id")&"",conn,1,3
if not rs.eof then
%>
<table height="1" border="0" cellpadding="3"  cellspacing="1" bgcolor="#F2F9E8" class="admintable1">
  <tr>
    <td colspan="2" class="admintitle">修改商家信息 （<%=rs("sd_name")%>）</td>
  </tr>
<form method="POST" action="?ok=3">
  <tr>
    <td width="20%" height="30" align="right" bgcolor="#FFFFFF">商家名称：</td>
    <td width="80%" bgcolor="#FFFFFF"><input type="text" name="sd_name" size="38" value="<%=rs("sd_name")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家简称：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_namejx" size="38" value="<%=rs("sd_namejx")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家网址：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_url" value="<%=rs("sd_url")%>" size="38" /> <font color="#FF0000">必须填写"http://"开头，真实填写否则不会通过审核！</font></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家简介：</td>
    <td bgcolor="#FFFFFF"><textarea name="sd_content" cols="80" rows="3"><%=rs("sd_content")%></textarea></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家所在地：</td>
    <td bgcolor="#FFFFFF"><input type="hidden" name="sd_classid" id="sd_classid" size="5" value="<%=rs("sd_classid")%>">
<select onChange="sd_classid.value=this.value;">
            <option value="<%=rs("sd_classid")%>">不改变</option>
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select id,sd_title from sd_yys order by sd_topid desc"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
<option value="<%=rslist("id")%>"><%=rslist("sd_title")%></option>
<%
rslist.movenext 
loop
rslist.close
set rslist=nothing
%>
          </select> <input type="text" name="sd_dishi" size="8" value="<%=rs("sd_dishi")%>">市 <font color="red">*</font> 　当前省份为：<%set rsc = Server.CreateObject("ADODB.RecordSet")
sql = "select id,sd_title from sd_yys where id="&rs("sd_classid")&""
rsc.open sql, conn,1,1
%><a href="../sd_fox.asp?fox=<%=rsc("id")%>" target="_blank"><b><%=rsc("sd_title")%></b></a><%rsc.close
set rsc=nothing%></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">商家详细地址：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_address" size="80" value="<%=rs("sd_address")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">邮政编码：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_zipcode" size="10" value="<%=rs("sd_zipcode")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">联 系 人：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_lianxiren" size="10" value="<%=rs("sd_lianxiren")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">电 话：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_tel" size="38" value="<%=rs("sd_tel")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">传 真：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_fax" size="38" value="<%=rs("sd_fax")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">邮 箱：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_email" size="38" value="<%=rs("sd_email")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">业务范围：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_yewufanwei" size="80" value="<%=rs("sd_yewufanwei")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">主机线路：</td>
    <td bgcolor="#FFFFFF"><input type='checkbox' name='sd_xianlu' value='1' <%if instr(rs("sd_xianlu"),"1")<>0 then response.write("checked")%> >中国电信</option>
<input type='checkbox' name='sd_xianlu' value='2' <%if instr(rs("sd_xianlu"),"2")<>0 then response.write("checked")%> >中国联通(网通)</option>
<input type='checkbox' name='sd_xianlu' value='3' <%if instr(rs("sd_xianlu"),"3")<>0 then response.write("checked")%> >中国移动(铁通)</option>
<input type='checkbox' name='sd_xianlu' value='4' <%if instr(rs("sd_xianlu"),"4")<>0 then response.write("checked")%> >双线机房</option>
<input type='checkbox' name='sd_xianlu' value='5' <%if instr(rs("sd_xianlu"),"5")<>0 then response.write("checked")%> >多线机房</option>
<input type='checkbox' name='sd_xianlu' value='6' <%if instr(rs("sd_xianlu"),"6")<>0 then response.write("checked")%> >港澳台</option>
<input type='checkbox' name='sd_xianlu' value='7' <%if instr(rs("sd_xianlu"),"7")<>0 then response.write("checked")%> >海外线路</option></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">客服QQ：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_qq" size="38" value="<%=rs("sd_qq")%>"> (多个请逗号,分开)</td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">托管机房：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_jifang" size="80" value="<%=rs("sd_jifang")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">代表客户：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_kehu" size="80" value="<%=rs("sd_kehu")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">所获荣誉：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_rongyu" size="80" value="<%=rs("sd_rongyu")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">ICP证：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_icp" size="38" value="<%=rs("sd_icp")%>"></td>
  </tr>
  <tr>
    <td height="30" align="right" bgcolor="#FFFFFF">ISP证：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="sd_isp" size="38" value="<%=rs("sd_isp")%>"></td>
  </tr>
  <tr>
    <td height="30" bgcolor="#FFFFFF"></td>
    <td bgcolor="#FFFFFF"><input type="hidden" name="id" size="20" value="<%=rs("id")%>"><input type="submit" value="确认修改" name="B1">
</td>
  </tr>
</form>
</table>
<%
end if
rs.close
set rs=nothing
END Sub
IF request("ok")=1 THEN
set rsc = Server.CreateObject("ADODB.RecordSet")
sql = "select * from [sd_show] where id="&request.form("toid")&""
rsc.open sql, conn,1,3
rsc("sd_password")=request("sd_password")
rsc.update
rsc.close
set rsc=nothing
response.write "<script>alert('商奇提示：修改成功');window.location.href='sd_listsj.asp';</script>"
response.end
END IF
IF request("ok")=2 THEN
set rsc = Server.CreateObject("ADODB.RecordSet")
sql = "select * from [sd_show] where id="&request.form("toid")&""
rsc.open sql, conn,1,3
rsc("sd_hits")=request("sd_hits")
rsc("sd_cn_rz")=request("sd_cn_rz")
rsc("sd_tj_px")=request("sd_tj_px")
rsc("sd_jifen")=request("sd_jifen")
rsc.update
rsc.close
set rsc=nothing
response.write "<script>alert('商奇提示：修改成功');window.location.href='sd_listsj.asp';</script>"
response.end
END IF
IF request("ok")=3 THEN
set rsc = Server.CreateObject("ADODB.RecordSet")
sql = "select * from sd_show where id="&request.form("id")&""
rsc.open sql, conn,1,3
rsc("sd_name")=request("sd_name")
rsc("sd_namejx")=request("sd_namejx")
rsc("sd_url")=request("sd_url")
rsc("sd_content")=request("sd_content")
rsc("sd_classid")=request("sd_classid")
rsc("sd_address")=request("sd_address")
rsc("sd_qq")=request("sd_qq")
rsc("sd_email")=request("sd_email")
rsc("sd_dishi")=request("sd_dishi")
rsc("sd_zipcode")=request("sd_zipcode")
rsc("sd_lianxiren")=request("sd_lianxiren")
rsc("sd_tel")=request("sd_tel")
rsc("sd_fax")=request("sd_fax")
rsc("sd_xianlu")=request("sd_xianlu")
rsc("sd_yewufanwei")=request("sd_yewufanwei")
rsc("sd_kehu")=request("sd_kehu")
rsc("sd_icp")=request("sd_icp")
rsc("sd_isp")=request("sd_isp")
rsc("sd_jifang")=request("sd_jifang")
rsc("sd_rongyu")=request("sd_rongyu")
rsc.update
rsc.close
set rsc=nothing
response.write "<script>alert('商奇提示：修改成功');window.location.href='sd_listsj.asp';</script>"
response.end
END IF
%>
<div style="text-align:center;margin:10px;"><hr><a href="http://www.583344.com" target="_blank">商奇评测系统</a> IDC版 &copy; 2006-2010 商奇软件 版权所有</div>
</BODY>
</HTML>
