admin_inc.asp

1、下载亿博购物系统 亿博购物系统每次发布最新版本

<td bgcolor="#D6DBF7" align="right">邮政编码：</td>
<td bgcolor="#D6DBF7"> 
<input class="wenbenkuang" name=pc type=text  value="<%=trim(rs("pc"))%>" ONKEYPRESS="event.returnValue=IsDigit();" size="12">
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#D6DBF7"> 
<td align="right">QQ号码： </td>
<td> 
<input class="wenbenkuang" name=QQ type=text  value="<%=trim(rs("oicq"))%>" size="12" maxlength="12">
</td>
</tr>
<tr bgcolor="#D6DBF7">
<td></td>
<td>
<input class="go-wenbenkuang" onclick='return checkuserinfo();' type="submit" name="Submit2" value=OK！确定修改>
</td>
</tr>
</form>
</table>

<%rs.close
set rs=nothing
end sub

sub url()
if request.cookies("godbook")("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("godbook")("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=url">
<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%" bgcolor="#D6DBF7" align="right">商家二级域名：</td>
<td width="70%" bgcolor="#D6DBF7"> 
http://<input class="wenbenkuang" name=url type=text id=url value="<%=trim(rs("url"))%>" size="23">
<input class="go-wenbenkuang" type="submit" value="我要去申请二级域名">
</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 logo()
if request.cookies("godbook")("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("godbook")("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=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("godbook")("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("godbook")("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("godbook")("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("godbook")("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("godbook")("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
isedit=request.QueryString("isedit")
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("godbook")("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("godbook")("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
  %>