admin_inc.asp

闲置物品免费交易的平台

      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onclick='return checknewsinfo();' type="submit" name="submit2" value=OK！确定修改>
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub logo()
if request.cookies("days6")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="userinfo" method="post" action="saveshjiainfo.asp?action=logo">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">修改商家LOGO</font></b></td>
    </tr>
    <tr> 
      <td width="30%" bgcolor="#D6DBF7" align="right">商家LOGO地址：</td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name=logo type=text id=logo value="<%=trim(rs("logo"))%>" size="30">
      </td>
    </tr>
    <tr> 
      <td width="30%" bgcolor="#D6DBF7" align="right"></td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" type="button" name="Submit" value="我要上传LOGO图片" onClick="window.open('../upload_flash.asp?formname=userinfo&editname=logo&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
        <font color="#FF0000">固定 150×60 像素</font></td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onclick='return checknewsinfo();' type="submit" name="submit2" value=OK！确定修改>
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub pass()
if request.cookies("days6")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="newsinfo" method="post" action="saveshjiainfo.asp?action=pass">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">修改商家密码</font></b></td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <td width="30%" align="right">管理员ID：</td>
      <td width="70%"><font color=red><%=trim(rs("username"))%></font></td>
    </tr>
    <tr bgcolor="#D6DBF7"> 
      <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="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onclick='return checknewsinfo();' type="submit" name="submit2" value=OK！确定修改>
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub gong()
if request.cookies("days6")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checknewsinfo()
{
 if(checkspace(document.newsinfo.content.value)) {
	document.newsinfo.content.focus();
    alert("对不起，请填写内容！");
	return false;
  }
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where username='"&request.cookies("days6")("shjianame")&"' ",conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="newsinfo" method="post" action="saveshjiainfo.asp?action=gong">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">修改商家公告</font></b></td>
    </tr>
    <tr> 
      <td width="30%" align="center" bgcolor="#D6DBF7">公告内容：</td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <textarea class="wenbenkuang" name="content" rows="10" cols="50"><%=trim(rs("content"))%></textarea>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onclick='return checknewsinfo();' type="submit" name="submit2" value=" 提交保存 ">
        <input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub addnews()
if request.cookies("days6")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checknewsinfo()
{
 if(checkspace(document.newsinfo.title.value)) {
	document.newsinfo.title.focus();
    alert("对不起，请填写新闻标题！");
	return false;
  }
  if(checkspace(document.newsinfo.content.value)) {
	document.newsinfo.content.focus();
    alert("对不起，请填写新闻内容！");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
dim isedit,id
if cstr(request("id"))<>"" then 
if not isnumeric(cstr(request("id"))) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(cstr(request("id"))) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
end if
end if
end if
isedit=request.QueryString("isedit")
if isedit<>"" then 
if not isnumeric(isedit) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(isedit) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
end if
end if
end if
if isedit then
rs.open "select * from news where newsid=" & cstr(request("id")),conn,1,1
end if
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="newsinfo" method="post" action="saveshjiainfo.asp?action=savenews">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">添加新闻</font></b></td>
    </tr>
    <tr> 
      <td width="30%" align="center" bgcolor="#D6DBF7">新闻标题：</td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <input class="wenbenkuang" name="title" type="text" id="title" size="40" value='
<% if isedit then
	response.write trim(rs("title")) 
	end if %>'
maxlength="40">
      </td>
    </tr>
    <tr> 
      <td width="30%" align="center" bgcolor="#D6DBF7">新闻内容：</td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <textarea class="wenbenkuang" name="content" rows="10" cols="50"><% if isedit then response.write rs("Content") %></textarea>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else  %>add<% End If %>'>
        <input type="Hidden" name="id" value='<% if isedit then response.write rs("newsid") end if %>'>
        <input class="go-wenbenkuang" onclick='return checknewsinfo();' type="submit" name="submit2" value=" 提交保存 ">
        <input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
      </td>
    </tr>
  </form>
</table>
<%
  if isedit then
  rs.close
  set rs=nothing
  end if
  end sub
  
  
sub fkfs()
if request.cookies("days6")("shjianame")="" then
response.Redirect "admin_index.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkfkfsinfo()
{
 if(checkspace(document.fkfsinfo.content.value)) {
	document.fkfsinfo.content.focus();
    alert("对不起，请填写付款方式内容！");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from fkfs where shjiaid="&id,conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="fkfsinfo" method="post" action="saveshjiainfo.asp?action=fkfs">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">付款方式</font></b></td>
    </tr>
    <tr> 
      <td width="30%" align="center" bgcolor="#D6DBF7">内 容：</td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <textarea class="wenbenkuang" name="content" rows="10" cols="50"><%if rs.recordcount<>"0" then
response.write trim(rs("Content"))
end if%>
</textarea>
        <input type="Hidden" name="fkong" value='<%if rs.recordcount<>"0" then response.write "fkong" end if %>'>
        <input type="Hidden" name="id" value='<% if rs.recordcount<>"0" then response.write rs("shjiaid") end if %>'>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onclick='return checkfkfsinfo();' type="submit" name="submit2" value=" 修改保存 ">
        <input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
      </td>
    </tr>
  </form>
</table>
<%  
  if isedit then
  rs.close
  set rs=nothing
  end if
  end sub
  
  
sub ps()
if request.cookies("days6")("shjianame")="" then
response.Redirect "admin_index.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkpsinfo()
{
 if(checkspace(document.psinfo.content.value)) {
	document.psinfo.content.focus();
    alert("对不起，请填写内容！");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ps where shjiaid="&id,conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
  <form name="psinfo" method="post" action="saveshjiainfo.asp?action=ps">
    <tr> 
      <td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">配送说明</font></b></td>
    </tr>
    <tr> 
      <td width="30%" align="center" bgcolor="#D6DBF7">内 容： </td>
      <td width="70%" bgcolor="#D6DBF7"> 
        <textarea class="wenbenkuang" name="content" rows="10" cols="50"><%if rs.recordcount<>"0" then
																	response.write trim(rs("Content"))
																	end if%>
</textarea>
        <input type="Hidden" name="psong" value='<%if rs.recordcount<>"0" then response.write "psong" end if %>'>
        <input type="Hidden" name="id" value='<% if rs.recordcount<>"0" then response.write rs("shjiaid") end if %>'>
      </td>
    </tr>
    <tr> 
      <td bgcolor="#D6DBF7"></td>
      <td bgcolor="#D6DBF7"> 
        <input class="go-wenbenkuang" onClick='return checkpsinfo();' type="submit" name="submit2" value=" 修改保存 ">
        <input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
      </td>
    </tr>
  </form>
</table>
<%  
  rs.close
  set rs=nothing
  end sub
  rs_s.close
  set rs_s=nothing

  
sub shjintr()
if request.cookies("days6")("shjianame")="" then
response.Redirect "admin_index.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkshjintrinfo()
{
 if(checkspace(document.shjintr.shjintr.value)) {
	document.shjintr.shjintr.focus();
    alert("对不起，请填写内容！");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shjintr where shjid="&id,conn,1,1
%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
<form name="shjintr" method="post" action="saveshjiainfo.asp?action=shjintr">
<tr> 
<td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">商家简介</font></b></td>
</tr>
<tr> 
<td width="30%" align="center" bgcolor="#D6DBF7">内 容： </td>
<td width="70%" bgcolor="#D6DBF7"> 
<textarea class="wenbenkuang" name="shjintr" rows="10" cols="50"><%if rs.recordcount<>"0" then
																	response.write trim(rs("shjintr"))
																	end if%>
</textarea>
<input type="Hidden" name="shjintrok" value='<%if rs.recordcount<>"0" then response.write "shjintrok" end if %>'>
<input type="Hidden" name="id" value='<% if rs.recordcount<>"0" then response.write rs("shjid") end if %>'>
</td>
</tr>
<tr>
<td bgcolor="#D6DBF7"></td>
<td bgcolor="#D6DBF7">
<input class="go-wenbenkuang" onClick='return checkshjintrinfo();' type="submit" name="submit2" value=" 修改保存 ">
<input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
</td>
</tr>
</form>
</table>
<%  
  rs.close
  set rs=nothing
  end sub
  %>