📄 admin_inc.asp
字号:
<form name="userinfo" method="post" action="saveshjiainfo.asp?action=myziliao">
<tr bgcolor="#D6DBF7"> <td width="30%" align="right">商店名称：</td><td width="70%"><font color=red><%=trim(rs("name"))%></font></td></tr>
<tr bgcolor="#D6DBF7"> <td align="right">负责人姓名：</td><td> <input class="wenbenkuang" name="name2" type="text" id="name" maxlength="10" value="<%=trim(rs("name2"))%>">
<font color="#FF0000">**</font></td></tr> <tr bgcolor="#D6DBF7"> <td align="right">电子邮件：</td><td>
<input class="wenbenkuang" name=useremail type="text" id="useremail" size="30" maxlength="40" value="<%=trim(rs("useremail"))%>">
<font color="#FF0000">**</font></td></tr> <tr bgcolor="#D6DBF7"> <td align="right">详细地址：</td><td>
<input class="wenbenkuang" name=dz type=text size="30" maxlength="40" value="<%=trim(rs("dz"))%>">
<font color="#FF0000">**</font> </td></tr> <tr bgcolor="#D6DBF7"> <td align="right">联系电话：</td><td >
<input class="wenbenkuang" name=tel type=text value="<%=trim(rs("tel"))%>" size="12">
<font color="#FF0000">**</font> </td></tr> <tr> <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>
<tr>
<td height="22" colspan="2" bgcolor="#D6DBF7"> </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 NAME="logo" TYPE="text" ID="logo" SIZE="20" VALUE="<%=trim(rs("logo"))%>" ></td></tr>
<tr> <td width="30%" bgcolor="#D6DBF7" align="right"></td><td width="70%" bgcolor="#D6DBF7">
<INPUT 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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -