首页 新闻 会员 周边

asp转向问题请教!

0
[已关闭问题] 关闭于 2012-11-29 11:25

<!--#Include File="../DataConn.asp"--> <!--#Include File="../Inc/CheckRight.asp"--> <!--#include file="../../../inc/cls_editor.asp" -->

<head> <link href="../../../skins/ubb.css" type="text/css" rel="stylesheet"/> <% If Not FYAdminLevel(401) Then  Call ErrorMsg() End If OpenDataBase Dim title,tid,Author,SourceSite,SourceUrl,Html,Vip,Info,action,Define,newid,Ename,keywords,topinfo,rs2,ts,istop,FColor,Spic,Indexpic title=CheckStr(Request.form("Title")) tid=Request.form("tid") keywords=Request.form("keywords") Author=Request.form("Author") SourceSite=Request.form("SourceSite") SourceUrl=Request.form("SourceUrl") Html=CheckStr(Request.form("Html")) Vip=".Html" Info=Request.form("fycon") Info=replace(Info,"<fynext>","") Info=replace(Info,"</fynext>","") 'Info=replace(Info,"&quot;","") action=Request("action") FColor=Request.form("FColor") Spic=Request.form("Spic")

if Spic<>"" then  Indexpic=1 else  Indexpic=0 end if

if Cip_name="" then Cip_name="本站" if Author="作者" then Author="管理员" if SourceSite="来源" then SourceSite="网络收集" if SourceUrl="URL" then SourceUrl="未知" if KeyWords="关键字" then KeyWords="未知"

if action="save" then  checkid(tid)  Set Rs=Conn.Execute("select * from "&Table_Pre&"_info where title='"&title&"' and tid="&tid)  if not rs.eof then   Response.write "所加文章与第"&rs("ID")&"号文章重复"   Response.end  rs.close  end if

 set rs=server.CreateObject("ADODB.RecordSet")   sql="select * from "&Table_Pre&"_info where (id is null)"   rs.open sql,conn,1,3   rs.addnew   rs("tid")=tid   rs("keywords")=keywords   rs("title")=title   rs("Author")=Author   rs("SourceSite")=SourceSite   rs("SourceUrl")=SourceUrl   rs("info")=Info   rs("InputDate")=now()   rs("username")=Cip_Name   rs("FColor")=FColor   rs("Spic")=Spic   rs("Indexpic")=Indexpic   rs("uploadfiles")=Request("uploadfiles")   rs("hid")=rtnreplaceint(Request("hid"),0)   rs("lpname")=changechr(Request("lpname"))   'rs("userid")=rtnreplaceint(Request("userid"),0)   rs("Recommend")=rtnreplaceint(Request("Recommend"),0)   rs("Rolls")=rtnreplaceint(Request("Rolls"),0)   rs("istop")=rtnreplaceint(Request("istop"),0)   rs("Strip")=rtnreplaceint(Request("Strip"),0)   rs("Popular")=rtnreplaceint(Request("Popular"),0)   rs("Comment")=rtnreplaceint(Request("Comment"),0)   rs("Slide")=rtnreplaceint(Request("Slide"),0)   rs("ismovie")=rtnreplaceint(Request("ismovie"),0)   rs("islink")=rtnreplaceint(Request("islink"),0)   rs("linkurl")=changechr(Request("linkurl"))   rs.update   rs.close  Set RS=Conn.execute("select top 1 id from "&Table_Pre&"_Info order by id desc")   newid=rs("id")   Rs.Close:Set rs=Nothing

  Set rs=Conn.execute("Select Format,Ename,ts from "&Table_Pre&"_Class where id="&tid)   Ename=rs("Ename")   ts=rs("ts")   html=changechr(Request("html"))   if html<>"" then              html=html&".Html"              define=1   else    Html=Format(rs("Format"),newid)&Vip    Define=0   end if   Rs.Close:Set Rs=Nothing

 Conn.Execute ("update "&Table_Pre&"_Info set define="&define&",html='"&Ename&Year(Now())&Month(Now())&"/"&html&"' where id="&newid)  ts=left(ts,(len(ts)-1))  Conn.execute("update "&Table_Pre&"_Class set total=total+1 where id in ("&replace(ts,"c","")&")")  Conn.execute("update Common set total=total+1 where Table_Pre='"&Table_Pre&"'")

 topinfo=topinfo& "<br><br><p align=center><font color=green>添加文章《"&title&"》成功</font>"  if request("makehtml")="yes" then  response.write("<script>window.open(""Makeinfo.asp?type=page&id="&newid&""","""",""width=200,height=100,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")</script>")  topinfo=topinfo& "<br><br><a href=../../../"&Directory&"/"&Ename&Year(Now())&Month(Now())&"/"&Html&" target=_blank><font color=red>查看效果</font></a>&nbsp;<a href=infoedit.asp?id="&newid&"><font color=red>修改</font></a>&nbsp;<a href=list.asp><font color=red>文章管理</font></a>&nbsp;&nbsp;<a href=infoadd.asp><font color=red>继续添加</font></a></p>"  response.write topinfo  response.end  end if End if %> <SCRIPT LANGUAGE="JavaScript"> <!-- var bShow=false; function toggle() {  var collInput=document.all.tags("INPUT");  var sv;  if(bShow)   sv="hidden";  else   sv="";  for(var i=0; i<collInput.length; i++)   collInput[i].style.visibility=sv;  bShow=!bShow;   }

//--> </SCRIPT> <script language="JavaScript" src="../../../inc/admin.js"></script> <SCRIPT LANGUAGE="JavaScript"> <!-- function doChange(objText, objDrop){   if (!objDrop) return;   var str = objText.value;   var arr = str.split("|");   var nIndex = objDrop.selectedIndex;   objDrop.length=1;   for (var i=0; i<arr.length; i++){    objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);   }   objDrop.selectedIndex = nIndex;  }

function doCheck(){

  for(var i=0;i<document.theForm.TempUploadFiles.length;i++){       if (document.theForm.UploadFiles.value=="") document.theForm.UploadFiles.value=document.theForm.TempUploadFiles.options[i].value;       else document.theForm.UploadFiles.value+="|"+document.theForm.TempUploadFiles.options[i].value;   }

  if (theForm.tid.value.length > 2 || theForm.tid.value.length < 1 || isNaN(theForm.tid.value))     {       alert("请选择分类!");       theForm.tid.focus();       return (false);     }  if (theForm.title.value =="" || theForm.title.value.length > 51 || theForm.title.value.length < 1 )     {       alert("请填写标题,字数限制在50字!");       theForm.title.focus();       return (false);     } } //--> </SCRIPT> <html> </head>

<body> <br> <form action ="?action=save" method=post name="theForm" id="theForm" onSubmit="return doCheck();"> <table cellspacing="1" cellpadding="4" width="90%" align="center" class="tableborder">   <tr>     <td colspan="2" class="header" align="center">添加信息</td>   </tr>   <tr>     <td class="altbg1" width="90">文章类别</td>     <td class="altbg2"><select name="tid">      <option value=""><-请选择文章类别-></option>      <%      Dim optioncase,tname,color,id,isselect      id=request("id")      if id<>"" then checkid(id)      Set Rs=Conn.Execute("select ID,Tname,tn,tj from "&Table_Pre&"_Class where tj>0 and include=1 order by ts")       Do While not rs.eof        tname=replace(rs("tname"),"|","->")        if rs("tj")=2 and rs("tn")<>"" then         i=i+1         if i=2 then          i=0          color="#FF0000"         else          color="#000000"         end if        end if        if rs("id")=clng(id) then isselect="selected"        optioncase=optioncase&"<option value='"&rs("id")&"' "&isselect&">"&tname&"</option>"        isselect=""       rs.MoveNext       loop       Rs.close:Set Rs = Nothing       Response.write optioncase%></select></td>   </tr> <%  hid=rtnreplaceint(request("hid"),0)  lpname=changechr(request("lpname"))  if len(lpname)<2 then  slpname="请选择楼盘..."  else  slpname=lpname  end if %>   <tr>     <td class="altbg1">所属楼盘</td>     <td class="altbg2"> <style> .nhs{  left: 170px;  top: 100px;  width: 520px;  height:300px;  margin-bottom: 0px;  z-index: 100;  position: absolute;  background: #d6ebf9;  border: 1px #84bceb solid;  overflow-x:no;  overflow-y:auto;  text-align:center } </style>  <script>      var isTypeDivOpen = "none";      function showdiv(){       if(isTypeDivOpen != "block"){       document.getElementById("nhs").style.display="block";       isTypeDivOpen = "block";      }else{       document.getElementById("nhs").style.display="none";       isTypeDivOpen = "none";      }     }

    function set(element,id,typename){       document.getElementById("hid").value = id;      document.getElementById("selbutton").value = typename;      document.getElementById("lpname").value = typename;      document.getElementById("nhs").style.display = "none";      for(var i=0 ; i < document.getElementsByName("selclassid").length ; i++ ){       if(document.getElementsByName("selclassid")[i].checked == true){        document.getElementsByName("selclassid")[i].checked=false;        element.checked=true;       }      }     }      </script>     <div class='nhs' id='nhs' style='display:none'><table style="margin:14px" width="100%" border="0" cellpadding="0" cellspacing="0"> <!--循环行开始--><%                          sqlTDH="select housename,hid from Newhouse where sh='1' order by HID desc"                          Set rst= Server.CreateObject("ADODB.Recordset")                          rst.open sqlTDH,conn,1,1                          if rst.eof then                             response.write "<TR><td><p align='center'>没有楼盘</p></td></tr>"                          else                          do while not rst.eof                        %>                     <TR height=26><%for i=1 to 5                     if not rst.eof then                     fzname=rst(0)                     %>                       <TD><input type='checkbox' name='selclassid' onClick="set(this,this.value,'<%=fzname%>');" value='<%=rst(1)%>'><%=leftt(fzname,12)%></TD> <% end if if not rst.eof then rst.movenext end if next %> </TR> <% loop end if rst.close set rst=nothing %>

</table><iframe src='javascript:false' style="position:absolute; visibility:inherit;top:0px;left:0px;width:320px;height:280px;z-index:-1;filter='progid:DXImageTransform.Microsoft.Alpha(style=0,opacity=0)';"></iframe></div><input type='button' name='selbutton' value='<%=slpname%>' style='height:21px;width:150px;border:0px;background-color: transparent;background-image:url(../images/bt.gif);' onClick="showdiv();" /><input type='hidden' name=hid value=0><input type='hidden' name=lpname value=<%=hid%>>无相关楼盘请留空</td>   </tr>   <tr>     <td class="altbg1">文章标题</td>     <td class="altbg2"><input type="text" style="height: 20px; border: 1px solid #999999; background: url('../../Images/rule.gif')" maxLength="160" size="50" name="title" value="<%=request("title")%>">     <select name="FColor" onFocus="this.selectedIndex=0" onChange="addbox(this.options[this.selectedIndex].value)" size="1">     <option value="#000000" style='color:#ffffff;BACKGROUND-COLOR:#000000' selected>标题颜色</option>     <option value='#FF0000' style='color:#FF0000;BACKGROUND-COLOR:#FF0000'>紅色</option>     <option value='#00FF00' style='color:#00FF00;BACKGROUND-COLOR:#00FF00'>綠色</option>     <option value='#0000FF' style='color:#0000FF;BACKGROUND-COLOR:#0000FF'>藍色</option>     <option value='#FF00FF' style='color:#FF00FF;BACKGROUND-COLOR:#FF00FF'>牡丹紅</option>     <option value='#00FFFF' style='color:#00FFFF;BACKGROUND-COLOR:#00FFFF'>青色</option>     <option value='#FFFF00' style='color:#FFFF00;BACKGROUND-COLOR:#FFFF00'>黃色</option>     <option value='#70DB93' style='color:#70DB93;BACKGROUND-COLOR:#70DB93'>海藍</option>     <option value='#FFFFFF' style='color:#FFFFFF;BACKGROUND-COLOR:#FFFFFF'>白色</option>     <option value='#5C3317' style='color:#5C3317;BACKGROUND-COLOR:#5C3317'>巧克力色</option>     <option value='#9F5F9F' style='color:#9F5F9F;BACKGROUND-COLOR:#9F5F9F'>藍紫色</option>     <option value='#B5A642' style='color:#B5A642;BACKGROUND-COLOR:#B5A642'>黃銅色</option>     <option value='#D9D919' style='color:#D9D919;BACKGROUND-COLOR:#D9D919'>亮金色</option>     <option value='#A67D3D' style='color:#A67D3D;BACKGROUND-COLOR:#A67D3D'>棕色</option>     <option value='#8C7853' style='color:#8C7853;BACKGROUND-COLOR:#8C7853'>青銅色</option>     <option value='#A67D3D' style='color:#A67D3D;BACKGROUND-COLOR:#A67D3D'>青銅色二</option>     <option value='#5F9F9F' style='color:#5F9F9F;BACKGROUND-COLOR:#5F9F9F'>士官服藍色</option>     <option value='#D98719' style='color:#D98719;BACKGROUND-COLOR:#D98719'>冷銅色</option>     <option value='#B87333' style='color:#B87333;BACKGROUND-COLOR:#B87333'>銅色</option>     <option value='#FF7F00' style='color:#FF7F00;BACKGROUND-COLOR:#FF7F00'>珊瑚紅</option>     <option value='#42426F' style='color:#42426F;BACKGROUND-COLOR:#42426F'>紫藍色</option>     <option value='#5C4033' style='color:#5C4033;BACKGROUND-COLOR:#5C4033'>深棕</option>     <option value='#2F4F2F' style='color:#2F4F2F;BACKGROUND-COLOR:#2F4F2F'>深綠</option>     <option value='#4A766E' style='color:#4A766E;BACKGROUND-COLOR:#4A766E'>深銅綠色</option>     <option value='#4F4F2F' style='color:#4F4F2F;BACKGROUND-COLOR:#4F4F2F'>深橄欖綠</option>     <option value='#9932CD' style='color:#9932CD;BACKGROUND-COLOR:#9932CD'>深蘭花色</option>     <option value='#871F78' style='color:#871F78;BACKGROUND-COLOR:#871F78'>深紫色</option>     <option value='#6B238E' style='color:#6B238E;BACKGROUND-COLOR:#6B238E'>深石板藍</option>     <option value='#2F4F4F' style='color:#2F4F4F;BACKGROUND-COLOR:#2F4F4F'>深鉛灰色</option>     <option value='#97694F' style='color:#97694F;BACKGROUND-COLOR:#97694F'>深棕褐色</option>     <option value='#7093DB' style='color:#7093DB;BACKGROUND-COLOR:#7093DB'>深綠松石色</option>     <option value='#855E42' style='color:#855E42;BACKGROUND-COLOR:#855E42'>暗木色</option>     <option value='#545454' style='color:#545454;BACKGROUND-COLOR:#545454'>淡灰色</option>     <option value='#856363' style='color:#856363;BACKGROUND-COLOR:#856363'>土灰玫瑰紅色</option>     <option value='#D19275' style='color:#D19275;BACKGROUND-COLOR:#D19275'>長石色</option>     <option value='#8E2323' style='color:#8E2323;BACKGROUND-COLOR:#8E2323'>火磚色</option>     <option value='#238E23' style='color:#238E23;BACKGROUND-COLOR:#238E23'>森林綠</option>     <option value='#CD7F32' style='color:#CD7F32;BACKGROUND-COLOR:#CD7F32'>金色</option>     <option value='#DBDB70' style='color:#DBDB70;BACKGROUND-COLOR:#DBDB70'>鮮黃色</option>     <option value='#C0C0C0' style='color:#C0C0C0;BACKGROUND-COLOR:#C0C0C0'>灰色</option>     <option value='#527F76' style='color:#527F76;BACKGROUND-COLOR:#527F76'>銅綠色</option>     <option value='#93DB70' style='color:#93DB70;BACKGROUND-COLOR:#93DB70'>青黃色</option>     <option value='#215E21' style='color:#215E21;BACKGROUND-COLOR:#215E21'>獵人綠</option>     <option value='#4E2F2F' style='color:#4E2F2F;BACKGROUND-COLOR:#4E2F2F'>印度紅</option>     <option value='#9F9F5F' style='color:#9F9F5F;BACKGROUND-COLOR:#9F9F5F'>土黃色</option>     <option value='#C0D9D9' style='color:#C0D9D9;BACKGROUND-COLOR:#C0D9D9'>淺藍色</option>     <option value='#A8A8A8' style='color:#A8A8A8;BACKGROUND-COLOR:#A8A8A8'>淺灰色</option>     <option value='#8F8FBD' style='color:#8F8FBD;BACKGROUND-COLOR:#8F8FBD'>淺鋼藍色</option>     <option value='#E9C2A6' style='color:#E9C2A6;BACKGROUND-COLOR:#E9C2A6'>淺木色</option>     <option value='#32CD32' style='color:#32CD32;BACKGROUND-COLOR:#32CD32'>石灰綠色</option>     <option value='#E47833' style='color:#E47833;BACKGROUND-COLOR:#E47833'>桔黃色</option>     <option value='#8E236B' style='color:#8E236B;BACKGROUND-COLOR:#8E236B'>褐紅色</option>     <option value='#32CD99' style='color:#32CD99;BACKGROUND-COLOR:#32CD99'>中海藍色</option>     <option value='#3232CD' style='color:#3232CD;BACKGROUND-COLOR:#3232CD'>中藍色</option>     <option value='#6B8E23' style='color:#6B8E23;BACKGROUND-COLOR:#6B8E23'>中森林綠</option>     <option value='#EAEAAE' style='color:#EAEAAE;BACKGROUND-COLOR:#EAEAAE'>中鮮黃色</option>     <option value='#9370DB' style='color:#9370DB;BACKGROUND-COLOR:#9370DB'>中蘭花色</option>     <option value='#426F42' style='color:#426F42;BACKGROUND-COLOR:#426F42'>中海綠色</option>     <option value='#7F00FF' style='color:#7F00FF;BACKGROUND-COLOR:#7F00FF'>中石板藍色</option>     <option value='#7FFF00' style='color:#7FFF00;BACKGROUND-COLOR:#7FFF00'>中春綠色</option>     <option value='#70DBDB' style='color:#70DBDB;BACKGROUND-COLOR:#70DBDB'>中綠松石色</option>     <option value='#DB7093' style='color:#DB7093;BACKGROUND-COLOR:#DB7093'>中紫紅色</option>     <option value='#A68064' style='color:#A68064;BACKGROUND-COLOR:#A68064'>中木色</option>     <option value='#2F2F4F' style='color:#2F2F4F;BACKGROUND-COLOR:#2F2F4F'>深藏青色</option>     <option value='#23238E' style='color:#23238E;BACKGROUND-COLOR:#23238E'>海軍藍</option>     <option value='#4D4DFF' style='color:#4D4DFF;BACKGROUND-COLOR:#4D4DFF'>霓虹籃</option>     <option value='#FF6EC7' style='color:#FF6EC7;BACKGROUND-COLOR:#FF6EC7'>霓虹粉紅</option>     <option value='#00009C' style='color:#00009C;BACKGROUND-COLOR:#00009C'>新深藏青色</option>     <option value='#EBC79E' style='color:#EBC79E;BACKGROUND-COLOR:#EBC79E'>新棕褐色</option>     <option value='#CFB53B' style='color:#CFB53B;BACKGROUND-COLOR:#CFB53B'>暗金黃色</option>     <option value='#FF7F00' style='color:#FF7F00;BACKGROUND-COLOR:#FF7F00'>橙色</option>     <option value='#FF2400' style='color:#FF2400;BACKGROUND-COLOR:#FF2400'>橙紅色</option>     <option value='#DB70DB' style='color:#DB70DB;BACKGROUND-COLOR:#DB70DB'>淡紫色</option>     <option value='#8FBC8F' style='color:#8FBC8F;BACKGROUND-COLOR:#8FBC8F'>淺綠色</option>     <option value='#BC8F8F' style='color:#BC8F8F;BACKGROUND-COLOR:#BC8F8F'>粉紅色</option>     <option value='#EAADEA' style='color:#EAADEA;BACKGROUND-COLOR:#EAADEA'>李子色</option>     <option value='#D9D9F3' style='color:#D9D9F3;BACKGROUND-COLOR:#D9D9F3'>石英色</option>     <option value='#5959AB' style='color:#5959AB;BACKGROUND-COLOR:#5959AB'>艷藍色</option>     <option value='#6F4242' style='color:#6F4242;BACKGROUND-COLOR:#6F4242'>鮭魚色</option>     <option value='#BC1717' style='color:#BC1717;BACKGROUND-COLOR:#BC1717'>猩紅色</option>     <option value='#238E68' style='color:#238E68;BACKGROUND-COLOR:#238E68'>海綠色</option>     <option value='#6B4226' style='color:#6B4226;BACKGROUND-COLOR:#6B4226'>半甜巧克力色</option>     <option value='#8E6B23' style='color:#8E6B23;BACKGROUND-COLOR:#8E6B23'>赭色</option>     <option value='#E6E8FA' style='color:#E6E8FA;BACKGROUND-COLOR:#E6E8FA'>銀色</option>     <option value='#3299CC' style='color:#3299CC;BACKGROUND-COLOR:#3299CC'>天藍</option>     <option value='#007FFF' style='color:#007FFF;BACKGROUND-COLOR:#007FFF'>石板藍</option>     <option value='#FF1CAE' style='color:#FF1CAE;BACKGROUND-COLOR:#FF1CAE'>艷粉紅色</option>     <option value='#00FF7F' style='color:#00FF7F;BACKGROUND-COLOR:#00FF7F'>春綠色</option>     <option value='#236B8E' style='color:#236B8E;BACKGROUND-COLOR:#236B8E'>鋼藍色</option>     <option value='#38B0DE' style='color:#38B0DE;BACKGROUND-COLOR:#38B0DE'>亮天藍色</option>  <option value='' style='color:#FFFFFF;BACKGROUND-COLOR:#FFFFFF'>无颜色</option>     </select>     <br>&nbsp;一二三四五六七八九十一二三四 </td>   </tr>   <tr>     <td class="altbg1">相关信息</td>     <td class="altbg2"><input type="text" size=16 name="Author" value="作者" onFocus="this.value=''">&nbsp;<input type="text" size=16 name="SourceSite" value="来源" onFocus="this.value=''">&nbsp;<input type="text" size=16 name="SourceUrl" value="URL,一般不填写" onFocus="this.value=''">&nbsp;</td>   </tr>   <tr><td>编辑日期</td><td><input type="text" size=20 name="KeyWords" value="XX年XX月XX日" onFocus="this.value=''">  格式:XX年XX月XX日</td></tr>   <% Dim n    if id>0 then     Set Rs=Conn.Execute("Select Format from "&Table_Pre&"_Class where id="&id)      n=rs("Format")      Rs.Close:Set Rs=Nothing    else     n=1    End if   %>   <tr>     <td class="altbg1">文章属性</td>     <td class="altbg2">  <input id="Recommend" type="checkbox" value="1" name="Recommend"> 推荐 <input id="Rolls" type="checkbox" value="1" name="Rolls"> 滚动  <input id="Strip" type="checkbox" value="1" name="Strip"> 头条  <input id="Popular" type="checkbox" value="1" name="Popular"> 热门  <input id="IsTop" type="checkbox" value="1" name="IsTop"> 固顶 <input id="ismovie" type="checkbox" value="1" name="ismovie"> 视频  <input id="Comment" type="checkbox" CHECKED value="1" name="Comment"> 允许评论 </td>   </tr> <script language="JavaScript" type="text/javascript"> <!-- function ChkLink(){ if (document.getElementById('IsLink').checked == true) {  document.getElementById('ChkIsLink').style.display = '';  document.getElementById('ChkNoLink').style.display = 'none'; }else{  document.getElementById('ChkIsLink').style.display = 'none';  document.getElementById('ChkNoLink').style.display = ''; } } //--> </script>

 

  <tr>             <td width="100" align="right"><strong>转向链接:</strong></td>             <td><input name="IsLink" type="checkbox" id="IsLink" value="1" OnClick="ChkLink();">&nbsp;转向链接</td>           </tr> <tr Id=ChkIsLink style="display:none;">             <td width="100" align="right"><strong>链接地址:</strong></td>             <td><input name="LinkUrl" type="text"            id="LinkUrl" value="" size="82" maxlength="255"> <font color="#FF0000">*</font><br /></td>           </tr>     <tr Id=ChkNoLink>     <td class="altbg1"><b>内容:</b><br>内容分页标签<br><font color=red>[分页标记]</font></td>     <td class="altbg2"><% if editor_setting(0)="3" then %> <input type="hidden" name="fycon" value="">     <IFRAME ID="editor" src="../../../Editor/Editor.asp?id=fycon&style=fy&TObj=TempUploadFiles" frameborder="0" scrolling="no" width="615" height="605"></IFRAME> <% else Dim oEditor Set oEditor = New Editor_Cls oEditor.UserMode = 0'0为管理员模式,1为用户模式 oEditor.setEditMode = editor_setting(0)'使用什么编辑器,0-fckeditor编辑器,1-UBB编辑器(常规),2-UBB编辑器(专家),3-ewebeditor oEditor.ChannelID = 1 oEditor.Width  = editor_setting(2) oEditor.Height  = editor_setting(3) oEditor.BasePath = "../../../"&editor_setting(4) '编辑器目录 oEditor.ToolbarSet = editor_setting(1)'编辑器模式Default,AdminMode,Simple,UserMode,Basic(默认,常规,简单,基本) oEditor.Value ="" oEditor.InstanceName = "fycon" oEditor.Execute() Set oEditor = Nothing end if %></td>   </tr> <tr>     <td class="altbg1">缩略图</td>     <td class="altbg2">    <input name="Spic" type="text" id="Spic" size="70" value=""><input id="Slide" type="checkbox" value="1" name="Slide"> 幻灯        <%if editor_setting(0)="0" then%><input type="hidden" name="UploadFileList" id="UploadFileList" onChange="doChange(this,document.theForm.TempUploadFiles)" value=""><input type="checkbox" name="AutoRemote" value='1' onClick="remoteUpload(this.checked);"> 自动保存远程图片<%end if%> <br>       <iframe style="top:2px" ID="UpFile" src="../../../inc/Upload.asp?MID=1&Type=0&Obj=spic&Obj2=&fy_channel=news&TObj=TempUploadFiles&intoeditor=1&inst=fycon" frameborder=0 scrolling=no width="330" height="25" name="I1"></iframe></td>   </tr>

<tr>     <td class="altbg1" colspan="2" align="center"><table border="0" width="100%" cellspacing="0" cellpadding="0">        <tr>         <td align="center" width="25">已<br>       上<br>       传<br>       图<br>       片</td>         <td align="center">         <select name="TempUploadFiles" id="TempUploadFiles" style="width:324;height:121" size="2" onclick="doPreview('TempUploadFiles','<%=fcml%>','<%=upload0%>')">         </select><br>         <input type="button" name="SetDefaultPic" value="设为标题图片" onClick="SetPicUrl('TempUploadFiles','spic');">          <input type="hidden" name="UploadFiles" value=""></td>         <td align="center" valign="top"><fieldset style="height:100%">     <legend>预览</legend>     <table border=0 cellpadding=0 cellspacing=1 width="180" height="100" valign=top>     <tr><td align=center valign=middle id=tdPreview height="100%">

    </td></tr>     </table>     </fieldset></td>        </tr>    </table></td>   </tr>  <tr>     <td class="altbg1">Html文件名</td>     <td class="altbg2">默认 &nbsp;<a onclick='javascript:toggle()' title="自定义生成文件的名称,请确认不要和以前的重复">点击自定义</a>&nbsp;&nbsp;<input type="text" style='visibility:hidden;' size=25 name="html">默认格式:<select name=Vip>      <option value=".Html">.Html</option>     </select><input type="checkbox" name="makehtml" value="yes" checked>立即生成</td>   </tr>   <tr>     <td colspan="2" align="center" class="altbg1"> <input type="submit" name="submit" value="确定添加"><br>  <br>  <br>   </td>   </tr> </table> </form> <%'If NewAsp.setAdminEditor(0)=0 Then如果使用html编辑器%> <form name="NewAsp_UploadForm" action="../../remoteupload.asp?action=upload&ChannelID=1" method="post" target="NewAsp_UploadTarget"> <input type="hidden" name="NewAsp_UploadText" value=""/> </form> <div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none"> <table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor="#0650D2"><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color="#FFFFFF">...正在保存数据...请等待...</font></marquee></td></tr></table> </div> <script type="text/javascript"> <!-- function remoteUpload(o) {  try{   var strText = GetInnerContentHTML() ;   var objField = document.getElementsByName("NewAsp_UploadText")[0];   objField.value = strText ;

  if (o) {    divProcessing.style.top = (document.body.clientHeight-parseFloat(divProcessing.style.height))/2;    divProcessing.style.left = (document.body.clientWidth-parseFloat(divProcessing.style.width))/2;    divProcessing.style.display = "";    document.NewAsp_UploadForm.submit();   }else{    divProcessing.style.display = "none";   }  }  catch(e){} }

function remoteUploadDone() {  try{  divProcessing.style.display = "none";  }  catch(e){} }

function GetInnerContentHTML(){  var strHTML ;  try{   var oEditor = FCKeditorAPI.GetInstance('fycon') ;   strHTML = oEditor.GetXHTML()  }  catch(e){   strHTML = '';  }  return strHTML } //--> </script> <iframe name="NewAsp_UploadTarget" id="NewAsp_UploadTarget" width="0" height="0"></iframe> </body></html>

 

点击总是生成了一个单页,没有转向成功。提示404错误,请问这里转向链接那里出错了?

asp
SC-SITE的主页 SC-SITE | 初学一级 | 园豆:6
提问于:2012-11-22 11:19
< >
分享
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册