admin_editbak.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 265 行
ASP
265 行
<%@ codepage ="936" %>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="121" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
if request("id")="" then
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
action=request("action")
skinorder=request("skinorder")
if action="save" then
sql="select * from Yixiang_userskin where id="&id&""
set rs=server.Createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
rs("userskinname")=request("userskinname")
rs("skinpic")=request("skinpic")
if skinorder=0 or skinorder="" then
rs("skinmain")=request("content")
elseif skinorder=1 then
rs("skinuserlog")=request("content")
elseif skinorder=2 then
rs("SkinSupply")=request("content")
elseif skinorder=3 then
rs("SkinPtHall")=request("content")
elseif skinorder=4 then
rs("SkinPurInfo")=request("content")
elseif skinorder=5 then
rs("SkinCompanyInfo")=request("content")
elseif skinorder=6 then
rs("SkinCusApp")=request("content")
elseif skinorder=7 then
rs("SkinUnInfo")=request("content")
elseif skinorder=8 then
rs("SkinEmpInfo")=request("content")
elseif skinorder=9 then
rs("SkinCusMsg")=request("content")
elseif skinorder=10 then
rs("SkinCantact")=request("content")
end if
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('修改成功');history.back();</script>"
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改模版</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<script LANGUAGE="JavaScript">
function check()
{
if (document.form.userskinname.value=="")
{
alert("模版名称！")
document.form.userskinname.focus()
document.form.userskinname.select()
return
}
if (document.form.skinpic.value=="")
{
alert("模版预览图片！")
document.form.skinpic.focus()
document.form.skinpic.select()
return
}
document.form.submit()
}
function displaybj(){
if (document.all.tez.style.display=="none"){
document.all.tez.style.display=""
}else{
document.all.tez.style.display="none"
}
}
</script>
<table cellpadding="2" cellspacing="1" border="0" width="98%" class="tableBorder" align=center>
<tr align="center">
<th height=25 align="center"><strong>用户模版管理</strong></th>
</tr>
<tr align="center">
<td height=25 align="left" class="forumRow">管理选项:<strong> </strong><a href="admin_userskin.asp?action=showskin&ispass=1">通过审核的模板</a> <a href="admin_userskin.asp?action=showskin&ispass=0">未通过审核的模版</a></td>
</tr>
</table>
<%
sql="select * from Yixiang_userskin where id="&id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<form name="form" method="POST" action="admin_edit.asp">
<input type="hidden" name="skinorder" value=<%=skinorder%>>
<input type="hidden" name="action" value="save">
<input type="hidden" name="id" value="<%=rs("id")%>">
<TABLE width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<th height=25 colspan="2" class="tableHeaderText"><strong>修改<%if skinorder=0 or skinorder="" then
response.Write "首页"
elseif skinorder=2 then
response.Write "供应信息"
elseif skinorder=3 then
response.Write "产品展厅"
elseif skinorder=4 then
response.Write "采购信息"
elseif skinorder=5 then
response.Write "公司介绍"
elseif skinorder=6 then
response.Write "客户评价"
elseif skinorder=7 then
response.Write "展会信息"
elseif skinorder=8 then
response.Write "招聘中心"
elseif skinorder=9 then
response.Write "客户留言"
elseif skinorder=10 then
response.Write "联系方式"
end if
%>模版</strong></th>
</tr>
<TR ALIGN="center">
<TD> <TABLE width="100%" border="0" cellpadding="5" cellspacing="2" bordercolorlight="#CEE7FF" bordercolordark="#CEE7FF" style="border-collapse: collapse">
<TR>
<TD width="210" align="right" class="Forumrow"><b>模版名称：</b></TD>
<TD width="729" class="Forumrow"> <font color="#F4FAFF">
<input name="userskinname" type="text" class="smallInput" value="<%=rs("userskinname")%>" size="55">
</font></TD>
</TR>
<TR>
<TD align="right" class="Forumrow"><b>模版预览图片： </b></TD>
<TD class="Forumrow"><input name="skinpic" type="text" class="smallInput" value="<%=rs("skinpic")%>" size="50"></TD>
</TR>
<TR>
<td class="Forumrow"></td>
<TD class="Forumrow">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id=adv style="DISPLAY: none">
<tr>
<td width="92%">
<IFRAME name="upload" MARGINHEIGHT=0 MARGINWIDTH=0 Frameborder=0 SCROLLING=no width=100% height=35 bordercolor="#f1f3f5" Src="AdvUploadPicture.asp"></IFRAME> </td>
</tr>
</table></TD>
</TR>
<TR>
<TD class="Forumrow" colspan=2><textarea name="content" style="display:none">
<% if skinorder=0 or skinorder="" then %>
<%=rs("skinmain")%>
<% elseif skinorder=1 then %>
<%=rs("skinshowlog")%>
<% elseif skinorder=2 then %>
<%=rs("SkinSupply")%>
<% elseif skinorder=3 then %>
<%=rs("SkinPtHall")%>
<% elseif skinorder=4 then %>
<%=rs("SkinPurInfo")%>
<% elseif skinorder=5 then %>
<%=rs("SkinCompanyInfo")%>
<% elseif skinorder=6 then %>
<%=rs("SkinCusApp")%>
<% elseif skinorder=7 then %>
<%=rs("SkinUnInfo")%>
<% elseif skinorder=8 then %>
<%=rs("SkinEmpInfo")%>
<% elseif skinorder=9 then %>
<%=rs("SkinCusMsg")%>
<% elseif skinorder=10 then %>
<%=rs("SkinCantact")%>
<% end if %>
</textarea><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%"><iframe ID="eWebEditor1" src="../../editor/ewebeditor.asp?id=content&style=standard&originalfilename=d_originalfilename &savefilename=d_savefilename &savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="100%" HEIGHT="450"></iframe></td>
</tr>
<tr><td width="31%" height="24" align="left" valign="middle"><span class="STYLE1" onClick="return displaybj()"><img src="../../images/arrow.gif" width="12" height="13" >查看标记说明</span></td>
</tr>
<tr><td width="31%" align="left" valign="top" id=tez style="display:none"><textarea cols="50" rows="30" readonly>标记说明
网站URL---------------$weburl$
网站名----------------$webname$
网站logo--------------$weblogo$
网站shoplogo----------$webshoplogo$
企业名称--------------$shopname$
企业logo--------------$shoplogo$
企业介绍--------------$shopabouts$
企业图片介绍----------$shopimgabouts$
特价产品--------------$productsselected$
最新供应--------------$supplymew$
会员标识--------------$vipbs$
会员编号--------------$vip_bh$
企业身份认证----------$vip_rz_fs$
企业认证时间----------$vip_rz_sj$
经验值----------------$vip_jlz$
VIP时间---------------$vip_sysj$
证书及荣誉 -----------$vip_zs$
国际证书--------------$vip_gj$
基础证书--------------$vip_jc$
其它证书--------------$vip_qt$
会员评价好评----------$vip_pj$
会员评价中评----------$vip_zp$
会员评价差评----------$vip_cp$
产品导行--------------$Shop_class$
</textarea></td></tr>
</table>
</TD>
</TR>
<TR height="40">
<TD colspan="2" align="center" class="Forumrow" height="40">
<input type="button" name="Submit" value=" 提 交 保 存" class="smallInput" onClick="check()">
<input type="reset" name="Submit2" value=" 重 新 添 写" class="smallInput"> </TR>
</TABLE></TD>
</TR>
</TABLE>
</FORM>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="../copy.asp" -->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?