📄 edit.asp
字号:
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"42")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<SCRIPT language=JavaScript>
function setSubjectText(){
var keywords = form.keywords.value;
for(i=0;i<keywords.length;i++){keywords=keywords.replace(',','，');}
if(form.keywords2.value){
for(i=0;i<form.keywords2.value.length;i++){form.keywords2.value=form.keywords2.value.replace(',','，');}
keywords+=','+form.keywords2.value;
}
if(form.keywords3.value){
for(i=0;i<form.keywords3.value.length;i++){form.keywords3.value=form.keywords3.value.replace(',','，');}
keywords+=','+form.keywords3.value;
}
form.p_z_Z_Keywords.value = keywords
// return true;
document.form.submit()
}
function trim(inputString) {
if (typeof inputString != "string") { return inputString; }
var retValue = inputString;
var ch = retValue.substring(0, 1);
while (ch == " ") {
//检查字符串开始部分的空格
retValue = retValue.substring(1, retValue.length);
ch = retValue.substring(0, 1);
}
ch = retValue.substring(retValue.length-1, retValue.length);
while (ch == " ") {
//检查字符串结束部分的空格
retValue = retValue.substring(0, retValue.length-1);
ch = retValue.substring(retValue.length-1, retValue.length);
}
while (retValue.indexOf(" ") != -1) {
//将文字中间多个相连的空格变为一个空格
retValue = retValue.substring(0, retValue.indexOf(" ")) + retValue.substring(retValue.indexOf(" ")+1, retValue.length);
}
return retValue;
}
</SCRIPT>
<script language = "JavaScript">
sall=new Array();
<%
Dim i
i=0
set rs=conn.execute("select * from class_2")
do while not rs.eof
%>
sall[<%=i%>]=new Array("<%=rs("typename")%>","<%=rs("sortid")%>","<%=rs("typeid")%>");
<%
i=i+1
rs.movenext
loop
rs.close
%>
function changeselect(selvalue)
{
document.form.typeid.length=0;
var selvalue=selvalue;
var i;
for(i=0;i<sall.length;i++)
{
if(sall[i][1]==selvalue)
{
var newOption1=new Option(sall[i][0],sall[i][2]);
document.all.typeid.add(newOption1);
}
}
}
</script><LINK href="../css/style.css" rel=stylesheet type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th height=25 colspan="2" class="tableHeaderText">专项商机管理 </th>
</tr>
<tr>
<td colspan="2" class="forumRowHighlight"><p><B>注意</B>：<BR>
①类别直接与发布的信息相关联，删除类别可能会影响到以前发布的专项商机信息。<BR> </td>
</tr>
<tr>
<td width="12%" height=25 class="forumRowHighlight"> <B>操作选项</B></td>
<td width="88%" class="forumRowHighlight"><a href="index.asp">管理专项商机</a> | <a href="add_vipinfo.asp">添加专项商机</a> | <a href="type.asp">管理商机类别</a> | <a href="class_ok.asp?action=add_class_1">添加专项类别</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
</tr>
</table>
<%
if Chkrequest(request("vipinfo_id")) then
vipinfo_id=request("vipinfo_id")
else
response.Redirect("/login/chklogin.asp?login=4")
response.end
end if
sql="select * from vipinfo where vipinfo_id="&vipinfo_id&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.Redirect("index.asp")
response.end
else
set rs3=conn.execute("select class_2.*,class_1.* from class_2,class_1 where class_2.typeid="&rs("typeid")&" and class_1.sortid=class_2.sortid")
set rs4=conn.execute("select * from vipinfo_class where typeid="&rs("viptype")&"")
%>
<FORM method="post" action="Save_Edit.asp" Name="form" enctype="multipart/form-data">
<input type="hidden" name="vipinfo_id" value="<%=vipinfo_id%>">
<TABLE width=100%
border=0 align="center" cellPadding=0 cellSpacing=0 class="tableBorder">
<TBODY>
<TR>
<TD align=middle>
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="15%" class=forumRow>信息主题：</td>
<td width="85%" class=forumRow> <input name="showname" type="text" style="border-style: solid; border-width: 1" value="<%=rs("vipshowname")%>" size="45">
<font color="#CC3300"> * </font> </td>
</tr>
<tr>
<td class=forumRow>是否推荐：</td>
<td width="85%" class=forumRow><%if rs("tjhome")="0" then%><input type="checkbox" name="checkbox" value="1"><%else%><input name="checkbox" type="checkbox" value="1" checked><%end if%></td>
</tr>
<tr>
<td width="15%" class=forumRow>有 效 期：</td>
<td width="85%" class=forumRow> <select size="1" name="period" class="f11" style="border-style: solid; border-width: 1">
<option value="一周" <% if rs("vipperiod")="一周" then %> selected <% end if %>>一周</option>
<option value="半月" <% if rs("vipperiod")="半月" then %> selected <% end if %>>半月</option>
<option value="一个月" <% if rs("vipperiod")="一个月" then %> selected <% end if %>>一个月</option>
<option value="三个月" <% if rs("vipperiod")="三个月" then %> selected <% end if %>>三个月</option>
<option value="六个月" <% if rs("vipperiod")="六个月" then %> selected <% end if %>>六个月</option>
<option value="一年" <% if rs("vipperiod")="一年" then %> selected <% end if %>>一年</option>
<option value="长期" <% if rs("vipperiod")="长期" then %> selected <% end if %>>长期</option>
</select>
<font color="#CC3300"> *</font></td>
</tr>
<tr>
<td width="15%" class=forumRow>价格说明：</td>
<td width="85%" class=forumRow> <input name="jgsm" type="text" style="border-style: solid; border-width: 1" value="<%=rs("vippricetems")%>" size="20">
<font color="#CC3300"> *</font></td>
</tr>
<tr>
<td width="15%" class=forumRow>交易类别：</td>
<td width="85%" class=forumRow> <select name="type" size="1">
<option selected value="<%=rs4("typeid")%>"><%=rs4("type")%></option>
<%
set rs1=conn.execute("select * from vipinfo_class")
do while not rs1.eof
response.write "<option value='"&rs1("typeid")&"'>"&rs1("type")&"</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
</select>
<font color="#CC3300"> *</font></td>
</tr>
<tr>
<td class=forumRow>上传图片：</td>
<td class=forumRow> <INPUT type="file" name="file" style="FONT-SIZE: 9pt; WIDTH: 250px" maxLength=50 size=30 title=上传产品图片资料不能大于200K。>
<input type="hidden" name="img" value="<%=rs("Picture")%>">
<br>
使用原有图片<input type="radio" name="cimg" value="1" checked>
| 删除原有图片重新上传
<input type="radio" name="cimg" value="2"></td>
</tr>
<tr>
<td class=forumRow>所属网站行业类别：</td>
<td class=forumRow> <select name="sortid" onChange="changeselect(document.form.sortid.options[document.form.sortid.selectedIndex].value)" size="1">
<option selected value="<%=rs3("sortid")%>"><%=rs3("sort")%></option>
<%
set rs1=conn.execute("select * from class_1 where sortid<>"&rs3("sortid")&"")
do while not rs1.eof
response.write "<option value='"&rs1("sortid")&"'>"&rs1("sort")&"</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
</select>
<select name="typeid">
<option selected value="<%=rs3("typeid")%>"><%=rs3("typename")%></option>
<%
set rs4=conn.execute("select * from class_2 where sortid="&rs3("sortid")&" and typeid<>"&rs3("typeid")&"")
do while not rs4.eof
response.write "<option value='"&rs4("typeid")&"'>"&rs4("typename")&"</option>"&chr(13)+chr(10)
rs4.movenext
loop
rs4.close
set rs4=nothing
rs3.close
set rs3=nothing
%>
</select>
</td>
</tr>
<tr>
<td class=forumRow>关 键 字：</td>
<td width="85%" class=forumRow><%
keywords=rs("keywords")
if keywords<>"" then
if instr(keywords,",")>0 then
kwarry=split(keywords,",")
if ubound(kwarry)=1 then
response.write"<INPUT maxLength=8 size=20 value='"&kwarry(0)&"' name=keywords>, <INPUT maxLength=8 size=20 value='"&kwarry(1)&"' name=keywords2>, <INPUT maxLength=8 size=20 name=keywords3>"
elseif ubound(kwarry)=2 then
response.write"<INPUT maxLength=8 size=20 value='"&kwarry(0)&"' name=keywords>, <INPUT maxLength=8 size=20 value='"&kwarry(1)&"' name=keywords2>, <INPUT maxLength=8 size=20 value='"&kwarry(2)&"' name=keywords3>"
elseif ubound(kwarry)>2 then
response.write"<INPUT maxLength=8 size=20 value='"&kwarry(0)&"' name=keywords>, <INPUT maxLength=8 size=20 value='"&kwarry(1)&"' name=keywords2>, <INPUT maxLength=8 size=20 value='"&kwarry(2)&"' name=keywords3>"
end if
else
response.write"<INPUT maxLength=8 size=10 value='"&keywords&"' name=keywords>, <INPUT maxLength=8 size=10 name=keywords2>, <INPUT maxLength=8 size=10 name=keywords3>"
end if
else
response.write"<INPUT maxLength=8 size=10 name=keywords>, <INPUT maxLength=8 size=10 name=keywords2>, <INPUT maxLength=8 size=10 name=keywords3>"
end if
%>
<INPUT type=hidden
name=p_z_Z_Keywords> </td>
</tr>
<tr>
<td class=forumRow>信息内容：</td>
<td class=forumRow><textarea rows="10" cols="80" name="content" class="f11" id="conter"><%=rs("vipcontent")%></textarea>
<a href="javascript:admin_Size(-5,'conter')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'conter')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table></td>
</tr>
<tr>
<th height=23 align=left>联系信息</th>
</tr>
<tr>
<td><table width="100%" height="121" border="0" cellpadding="2" cellspacing="1" bordercolor="#111111" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td width="15%" valign="top" height="22" class=forumRow>
<p align="right">联 系 人：</td>
<td width="34%" valign="top" height="22" class=forumRow>
<input name="linkman" type="text" class="f11" value="<%=rs("lxr")%>" size="21">
<font color="#CC3300">
*</font></td>
<td width="16%" valign="top" height="22" class=forumRow>
<p align="right">联系电话：</td>
<td width="35%" valign="top" height="22" class=forumRow>
<input name="phone" type="text" value="<%=rs("phone")%>" size="21" >
<font color="#CC3300">
*</font></td>
</tr>
<tr>
<td width="15%" valign="top" height="19" class=forumRow>
<p align="right">公司名称：</td>
<td width="34%" valign="top" height="19" class=forumRow>
<input name="company" type="text" value="<%=rs("gsmc")%>" size="21"></td>
<td width="16%" valign="top" height="19" class=forumRow>
<p align="right">联系地址：</td>
<td width="35%" valign="top" height="19" class=forumRow>
<input name="address" type="text" value="<%=rs("gsdz")%>" size="21">
<font color="#CC3300">
*</font></td>
</tr>
<tr>
<td width="15%" valign="top" height="22" class=forumRow>
<p align="right">所在区域：</td>
<td width="34%" valign="top" height="22" class=forumRow>
<input name="country" type="text" value="<%=rs("country")%>" size="21">
<font color="#CC3300">
*</font></td>
<td width="16%" valign="top" height="22" class=forumRow>
<p align="right">所属城镇：</td>
<td width="35%" valign="top" height="22" class=forumRow>
<input name="city" type="text" value="<%=rs("city")%>" size="21">
<font color="#CC3300">
*</font></td>
</tr>
<tr>
<td width="15%" valign="top" height="19" class=forumRow>
<p align="right">电子邮件：</td>
<td width="34%" valign="top" height="19" class=forumRow>
<input name="email" type="text" value="<%=rs("email")%>" size="21">
<font color="#CC3300">
*</font></td>
<td width="16%" valign="top" height="19" class=forumRow>
<p align="right">邮政编码：</td>
<td width="35%" valign="top" height="19" class=forumRow><input name="postcode" type="text" value="<%=rs("post")%>" size="16">
<font color="#CC3300">
</font></td>
</tr>
<tr>
<td width="15%" valign="top" height="19" class=forumRow>
<p align="right">公司传真：</td>
<td width="34%" valign="top" height="19" class=forumRow>
<input name="fax" type="text" value="<%=rs("fax")%>" size="21"></td>
<td width="16%" valign="top" height="19" class=forumRow>
<p align="right">公司网址：</td>
<td width="35%" valign="top" height="19" class=forumRow>
<input name="web" type="text" value="<%=rs("weburl")%>" size="21" ></td>
</tr>
</table></td>
</tr>
<tr>
<td class="forumRow">
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height="30" align=center noWrap><INPUT class=subbutton style="WIDTH: 160px" onclick=javascript:setSubjectText() type=button value=一切完成，确定修改！ name=Post> </TD></TR></TBODY></TABLE></td></tr></table><Br>
</TD>
</TR></TBODY></TABLE>
</form>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="../copy.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -