<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shjia where name='"&request.Cookies("godbook")("shjianame")&"' ",conn,1,1
id=rs_s("shjiaid")

sub mydindan()
if request.Cookies("godbook")("shjianame")="" then
response.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shjia where shjiaid="&request.Cookies("godbook")("shjiaid")&" ",conn,1,1
if rs("lx")<>"" then
response.Write"<script language=javascript>alert('此功能为收费商家提供');history.go(-1);</script>"
end if

end sub
sub fk()
if request.Cookies("godbook")("shjianame")="" then
request.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
request.End
end if%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#EFF7CE">
<tr> 
<td align="center" bgcolor="#63C700" height="25" colspan="4"><b><font color="#ffffff">查看留言</font></b></td>
</tr>
<tr bgcolor="#EFF7CE" align="center"> 
<td width="10%">序号 </td>
<td width="50%">留言标题</td>
<td width="30%">添加时间</td>
<td width="10%">操作</td>
</tr>
  <%  set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from shop_shjiafk where shjiaid="&id&" order by fkdate desc",conn,1,1
	if err.number<>0 then
	request.write "数据库中无数据"
	end if  
	do while not rs.eof%>
<tr bgcolor="#EFF7CE"> 
<td align="center"><%=rs("fkid")%> </td>
<td style='PADDING-LEFT: 10px'><a href="javascript:;" onclick=javascript:window.open('admin_fk.asp?id=<%=rs("fkid")%>')>
<% if len(replace(trim(rs("fksubject")),"<br>",""))>25 then
	request.write left(replace(trim(rs("fksubject")),"<br>",""),23)&".."
	else
	request.write replace(trim(rs("fksubject")),"<br>","")
	end if%></a>
</td>
<td align="center"><%=rs("fkdate")%></td>
<td align="center"><a href="saveshjiainfo.asp?action=delfk&fkid=<%=rs("fkid")%>"><font color="#FF0000">删除</font></a>
</td>
</tr>
<%rs.movenext
  	loop	
	rs.close
	set rs=nothing%>
</table>
<%end sub
sub url()
if request.Cookies("godbook")("shjianame")="" then
request.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
request.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where name='"&request.Cookies("godbook")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#EFF7CE">
<form name="newsinfo" method="post" action="saveshjiainfo.asp?action=url">
<tr>
<td align="center" bgcolor="#63C700" height="25" colspan="4"><b><font color="#ffffff">修改商家二级域名</font></b></td>
</tr>
<tr>
  <td colspan="2" bgcolor="#EFF7CE" style="padding-left:20px"><table width="100%" border="0" cellspacing="0" cellpadding="3">
    <tr>
      <td>申请二级域名，可以选择最能代表您公司的英文标识，域名后缀为it532.cn，在地址栏输入您的域名便可直达您的网站。</td>
    </tr>
    <tr>
      <td>越简单的域名越能让您的客户便于记忆，例：http://dd.it532.cn（顶点数码）。</td>
    </tr>
    <tr>
      <td>此域名为收费商家永久性提供。</td>
    </tr>
    
  </table>    </td>
  </tr>
<tr> 
<td width="15%" bgcolor="#EFF7CE" style="padding-left:23px">申请二级域名：</td>
<td width="70%" bgcolor="#EFF7CE"> 
http://<input class="wenbenkuang" name=url type=text id=url value="<%=trim(rs("url"))%>" size="23">
.it532.cn</td>
</tr>
<tr>
<td bgcolor="#EFF7CE"></td>
<td bgcolor="#EFF7CE">
<input class="go-wenbenkuang" type="submit" name="submit" value=OK！提交申请></td>
</tr>
</form>
</table>

<%rs.close
set rs=nothing
end sub
sub logo()
if request.Cookies("godbook")("shjianame")="" then
request.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
request.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where name='"&request.Cookies("godbook")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#EFF7CE">
<form name="userinfo" method="post" action="saveshjiainfo.asp?action=logo">
<tr>
<td align="center" bgcolor="#63C700" height="25" colspan="4"><b><font color="#ffffff">修改商家LOGO</font></b></td>
</tr>
<tr> 
<td width="30%" bgcolor="#EFF7CE" align="right">商家LOGO地址：</td>
<td width="70%" bgcolor="#EFF7CE"> 
<input class="wenbenkuang" name=logo type=text id=logo value="<%=trim(rs("logo"))%>" size="30">
</td>
</tr>
<tr> 
<td width="30%" bgcolor="#EFF7CE" align="right"></td>
<td width="70%" bgcolor="#EFF7CE"> 
<input class="go-wenbenkuang" type="button" name="Submit" value="我要上传LOGO图片" onclick="window.open('../upping.asp?formname=userinfo&editname=logo&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
        <font color="#FF0000">固定 160×85 像素</font></td>
</tr>
<tr>
<td bgcolor="#EFF7CE"></td>
<td bgcolor="#EFF7CE">
<input class="go-wenbenkuang" type="submit" name="submit2" value=OK！确定修改>
</td>
</tr>
</form>
</table>

<%rs.close
set rs=nothing
end sub
sub pass()
if request.Cookies("godbook")("shjianame")="" then
request.Redirect "<script language=javascript>alert('网络超时或还没有登录');location.href='admin_login.asp';</script>"
request.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where name='"&request.Cookies("godbook")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#EFF7CE">
<form name="newsinfo" method="post" action="saveshjiainfo.asp?action=pass">
<tr>
<td align="center" bgcolor="#63C700" height="25" colspan="4"><b><font color="#ffffff">修改商家密码</font></b></td>
</tr>
<tr bgcolor="#EFF7CE"> 
      <td width="30%" align="right">管理员名称：</td>
<td width="70%"><font color=red><%=trim(rs("username"))%></font></td> 
</tr>
<tr bgcolor="#EFF7CE"> 
<td align="right">修改密码：</td>
<td>
<input class="wenbenkuang" name="password" type="password" id="password" maxlength="18">
<font color=red>不修改为空</font></td> 
</tr>
<tr>
<td bgcolor="#EFF7CE"></td>
<td bgcolor="#EFF7CE">
<input class="go-wenbenkuang" type="submit" name="submit" value="OK! 确定修改">
</td>
</tr>
</form>
</table>

<%rs.close
set rs=nothing
end sub%>