add.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 175 行
ASP
175 行
<%@ codepage ="936" %>
<%
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)="03" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加商业信息</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
</head>
<script LANGUAGE="JavaScript">
function check()
{
if (document.form.title.value=="")
{
alert("请输入资讯标题！")
document.form.title.focus()
document.form.title.select()
return
}
if (document.form.typeid.value=="")
{
alert("请选择资讯所属类别！")
document.form.typeid.focus()
document.form.typeid.select()
return
}
if (document.form.nfrom.value=="")
{
alert("请输入资讯添加人！")
document.form.nfrom.focus()
document.form.nfrom.select()
return
}
document.form.submit()
}
</script>
<form name="form" method="POST" action="save.asp">
<input type='hidden' name="picture" value = "">
<TABLE width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<th height=25 colspan="2" class="tableHeaderText">添加网站公告+新闻+活动</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">
<select name='IncludePic' style="display:none">
<option selected> </option>
<option value='[图文]'>[图文]</option>
<option value='[组图]'>[组图]</option>
<option value='[推荐]'>[推荐]</option>
<option value='[注意]'>[注意]</option>
</select>
<input type="text" name="title" class="smallInput" size="55">
</font> <font color='#FF0000'>*</font>
<select name='TitleFontColor' id='TitleFontColor'>
<option value='' selected>颜色</option>
<option value=''>默认</option>
<option value='#cc3300' style='background-color:#cc3300'></option>
<option value='#000000' style='background-color:#000000'></option>
<option value='#FFFFFF' style='background-color:#FFFFFF'></option>
<option value='#008000' style='background-color:#008000'></option>
<option value='#800000' style='background-color:#800000'></option>
<option value='#808000' style='background-color:#808000'></option>
<option value='#000080' style='background-color:#000080'></option>
<option value='#800080' style='background-color:#800080'></option>
<option value='#808080' style='background-color:#808080'></option>
<option value='#FFFF00' style='background-color:#FFFF00'></option>
<option value='#00FF00' style='background-color:#00FF00'></option>
<option value='#00FFFF' style='background-color:#00FFFF'></option>
<option value='#FF00FF' style='background-color:#FF00FF'></option>
<option value='#FF0000' style='background-color:#FF0000'></option>
<option value='#0000FF' style='background-color:#0000FF'></option>
<option value='#008080' style='background-color:#008080'></option>
</select></TD>
</TR>
<TR>
<TD align="right" valign="middle" class="Forumrow"><b>信息分类：</b></td>
<TD class="Forumrow">
<select name="typeid" size="1" class="lh17">
<option selected>--+清选择所属类别+--</option>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from Yixiang_worldec_about_class"
rs1.open sql1,conn,1,1
if not rs1.eof then
do while not rs1.eof
response.write "<option value='"&rs1("id")&"'>"&rs1("type")&"</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
end if
%>
</select><!-- <a href="Class_Ok.asp?action=add_class_1"><font color='#FF0000'>添加</font></a></font> -->
</TD>
</TR>
<TR>
<TD align="right" class="Forumrow"><b>信息属性： </b></TD>
<TD class="Forumrow"><input name="tj" type="checkbox" id="tj" value="1">
推荐 <input name="pic_on" type="checkbox" id="pic_on" value="1" onClick=showadv()>
<font color="red"><span id="advance">上传标题图片</span>
</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 id="d_file" frameborder="0" src="../../inc/upload.asp?tMode=1&istwo=0&utype=web" width="300" height="40" scrolling="no"></iframe>
<!--------------------------------------------------------------------------->
<br />
</td>
</tr>
</table></TD>
</TR>
<TR>
<TD align="right" class="Forumrow"><b>信息来源：</b></td>
<TD valign="middle" class="Forumrow"><font color="#F4FAFF">
<input type="text" name="nfrom" class="smallInput" size="50">
<font color='blue'><=【<font color='green' onclick="document.form.nfrom.value='<%=webname%>信息中心'" style="cursor:hand;"><%=webname%>信息中心</font>】</font>
</TD>
</TR>
<TR>
<TD align="right" class="Forumrow"><b>详细信息：</b></TD>
<TD class="Forumrow"><textarea name="content" style="display:none"></textarea><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="617" HEIGHT="450"></iframe></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>
<script>
function showadv(){
if (document.form.pic_on.checked == true) {
adv.style.display = "";
advance.innerText="取消上传标题图片"
}else{
adv.style.display = "none";
advance.innerText="上传标题图片"
}
}
</script>
<!--#include file="../copy.asp" -->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?