想把ewebeditor换成新浪编辑器
新浪编辑器调用方法：<input type="hidden" name="content" id="c内容表单项id">
<iframe src="Edit/editor.htm?id=内容表单项id&ReadCookie=0" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" width="700" height="460"></iframe>
所以我得删除掉eweb编辑器
可是却找不到他在哪……唯一用到它的编辑页面代码如下，请问在哪能删掉原编辑器
<!--#include File="../include/Class_Startup.asp" -->
<!--#include File="../include/CheckLogin.asp" -->
<!--#include File="../include/MD5.asp" -->
<!--#include File="../include/function.asp" -->
<!--#include file="config.asp"-->
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Dim BackPath,Title,Field(10,7)
Dim i
Title="资讯管理"
FieldNum=10 '设置显示字段个数
i = 0
Field(i,1)="资讯类别"
Field(i,2)="CategoryID"
Field(i,3)="int"
Field(i,4)="select"
i = i + 1
Field(i,1)="标题"
Field(i,2)="Title"
Field(i,3)="char"
Field(i,4)="text"
Field(i,5)="150"
i = i + 1
Field(i,1)="关键词"
Field(i,2)="Keywords"
Field(i,3)="char"
Field(i,4)="text"
Field(i,7)="300"
i = i + 1
Field(i,1)="描述"
Field(i,2)="Description"
Field(i,3)="char"
Field(i,4)="textarea"
i = i + 1
Field(i,1)="作者"
Field(i,2)="Author"
Field(i,3)="char"
Field(i,4)="text"
Field(i,7)="150"
i = i + 1
Field(i,1)="来源"
Field(i,2)="Source"
Field(i,3)="char"
Field(i,4)="text"
Field(i,7)="150"
i = i + 1
Field(i,1)="详细内容"
Field(i,2)="Content"
Field(i,3)="mem"
Field(i,4)="textarea"
i = i + 1
Field(i,1)="点击次数"
Field(i,2)="Hits"
Field(i,3)="int"
Field(i,4)="text"
Field(i,7)="80"
i = i + 1
Field(i,1)="是否推荐"
Field(i,2)="Is_Rec"
Field(i,3)="bit"
Field(i,4)="radio"
i = i + 1
Field(i,1)="是否显示"
Field(i,2)="Is_Show"
Field(i,3)="bit"
Field(i,4)="radio"
'''''''''''''''
'======================================
'检查是否登录，或登录超时
'注意：一定要包含CheckLogin.asp组件
'======================================
Dim oLogin
Set oLogin = New Ixinde_CheckLogin
If Not oLogin.CheckLogin Then
Set oLogin = Nothing
Response.Write("<script>alert('登录已超时，请重新登录系统。');window.parent.location.href='../Login.asp';</script>")
Response.End()
End If
Set oLogin = Nothing
'======================================
'======================================
'检查地址的有效性
'======================================
If Not SQLFormater() Then
Response.Write("<script>alert('无效地址.');</script>")
Response.End()
End If
'======================================
act = Request("act")
nID = Request.QueryString("ID")
nCatID = Request.QueryString("CatID")
nParentID = Request.QueryString("ParentID")
If Not IsNumeric(nID) Then
nID = 0
End If
if nCatID="" or Isnull(nCatID) then
nCatID=0
end If
if nParentID="" or Isnull(nParentID) then
nParentID=0
end If
If act = "" Then
act = "2"
End If
DBConnBegin(connstr)
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
act = Request.Form("act")
nID = Request.Form("txtID")
nCatID = Request.Form("txtCatID")
nParentID = Request.Form("txtParentID")
If Not IsNumeric(nID) Then nID = 0
If Not IsNumeric(nCatID) Then nCatID = 0
If Not IsNumeric(nParentID) Then nParentID = 0
'================================ 初化变量 form
mmI=0
do while mmI<FieldNum
If Field(mmI,3)="char" or Field(mmI,3)="charonly" then
if Field(mmI,5)="" then
Field(mmI,0)=Request.form(Field(mmI,2))
else
Field(mmI,0)=left(Request.form(Field(mmI,2)),cint(Field(mmI,5)))
end if
ElseIf Field(mmI,3)="date" or Field(mmI,3)="password" or Field(mmI,3)="int" Then
Field(mmI,0)=Request.form(Field(mmI,2))
If Field(mmI,3)="int" and isNumeric(Field(mmI,0))=false Then
Field(mmI,0)=0
End If
ElseIf Field(mmI,3)="mem" Then
Field(mmI,0)=Request.form(Field(mmI,2))
End If
if Field(mmI,3)="bit" then
if Request.form(Field(mmI,2))="1" then Field(mmI,0)="1" end if
if Request.form(Field(mmI,2))="0" then Field(mmI,0)="0" end if
if Request.form(Field(mmI,2))="" then Field(mmI,0)="0" end if
end if
mmI=mmI+1
loop
'===============================
'=============================== 更新数据库记录
sSql_Fields=""
sSql_values=""
set oRs=server.createobject("adodb.recordset")
sSQL = "Select * From "&tableName1&" Where ID=" & nID
oRs.open sSQL,conn,2,3
If nID = 0 Then
oRs.AddNew() '如果nid为0,为添加操作
Else
strDateAndtime=oRs("Dateandtime") '时间为文件保存文件夹位置
End if
mmI=0
do while mmI<FieldNum
oRs(Field(mmI,2))=Field(mmI,0)
mmI=mmI+1
loop
oRs.Update()
oRs.Close()
If catID=0 then
catID=Field(0,0)
End If
'-------------------------------------------以下为生成静态程序 By Fanter---------------------------
If nID=0 Then
set oRs=server.CreateObject("adodb.recordset")
strSQL="select top 1 ID,Dateandtime from " & tableName1 & " order by ID desc"
oRs.open strSQL,conn,1,1
nID=oRs(0)
strDateAndtime=oRs(1)
oRs.close
End if
Dim strRedirect,strSourceUrl,strFolder,strTemplate
strRedirectLast=Year(strDateAndtime) & "-" & Right("0" & Month(strDateAndtime),2)
strRedirect=strFolder & "/" & strRedirectLast 'strFolder为生成静态的文件保存的文件夹
strSourceUrl="/" & strTemplate & "?ID=" & nID '要生成的目标文件(即模板)strTemplate为模板文件
strFileName=strFileName
strFileName=nID & ".html"
Write2file strRedirect,strSourceUrl,strFileName '写入到文件
strSQL1="update "&tableName1&" set FileName='" & strRedirectLast & "/" & strFileName & "' where ID=" & nID
conn.execute(strSQL1) '把文件名写入数据库
'-------------------------------------------------------------静态生成完成------------------------------------------------------
Response.Write("<script>alert('操作成功.');location.href='"&BackPath&"?CatID="&nCatID&"&ParentID="&nParentID&"';</script>")
'=================================
End If
'================================= 初化变量 null,
If nID = 0 Then
mmI=0
do while mmI<FieldNum
if Field(mmI,3)="bit" then
Field(mmI,0)=False
else
Field(mmI,0)=""
end if
mmI=mmI+1
loop
'==================================
Else
'Dim sqlTemp
'sqlTemp = ""
'mmI=0
'do while mmI<FieldNum
'sqlTemp = sqlTemp & Field(mmI,2) & ","
'mmI = mmI + 1
'Loop
'sqlTemp = left(sqlTemp, len(sqlTemp)-1)
'sSQL = "Select "& sqlTemp &" From "&tableName1&" Where ID=" & nID
sSQL = "Select * From "&tableName1&" Where ID=" & nID
Set rs = conn.Execute(sSQL)
If (rs.EOF And rs.BOF) Then
Response.Write("<script>alert('没有找到指定记录，可能已经被删除。');history.back();</script>")
Response.End()
End If
'================================= 初化变量 recordset,
mmI=0
do while mmI<FieldNum
Field(mmI,0)=rs(Field(mmI,2))
mmI=mmI+1
loop
'================================
End If
%>
<html>
<head>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Title%></title>
<link href="../css/style.css" rel="stylesheet" type="text/css">
<script language="javascript" src="../js/calendar.js"></script>
<script language="javascript" src="../js/WindowFunctions.js"></script>
<script language="javascript">
<!--
function fCheckOnOff(obj)
{
obj.value = (obj.checked?1:0);
//alert(obj.value);
}
function fCheckOnOffForLabel(obj)
{
obj.checked = !obj.checked;
obj.value = (obj.checked?1:0);
//alert(obj.value);
}
function fCheckForm()
{
return true;
}
-->
</script>
</head>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" scroll="yes">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td width="100%" valign="top">
<table class="up" cellSpacing="0" cellPadding="3" width="100%" border="0">
<tr>
<td class="title" noWrap background="../images/title_back.gif" height="26"><IMG height="16" hspace="0" src="../images/xp38.gif" width="16" align="absMiddle"><span> <font color=#cc0000><b><%=title%></b></font></span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<table class="up" borderColor="#efefef" bgcolor="#F0F0EC" cellSpacing="0" cellPadding="0" width="100%" border="1">
<tr>
<td vAlign="middle" noWrap width="0" height="25"><IMG height="22" src="../images/t_header.gif" width="6" align="absMiddle">
<td onMouseUp="this.className='up';location.reload();" onMouseDown="this.className='down';"
onmouseover="this.className='up'" title="刷新" style="CURSOR: default" onMouseOut="this.className=''"
width="0%"><IMG height="16" hspace="5" src="../images/refresh.gif" width="16" align="absMiddle"></td>
<td width="0%"><IMG height="22" src="../images/split.gif" width="6" align="absMiddle"></td>
<td onMouseUp="this.className='up';"
onmousedown="this.className='down';location.href='edit.asp?act=0&ID=0&CatID=<%=ncatID%>&ParentID=<%=nParentID%>';" onMouseOver="this.className='up'" title="添加"
style="CURSOR: default" onMouseOut="this.className=''" noWrap width="0%"><img height="16" hspace="5" src="../images/add.gif" width="16" align="absMiddle"><font style="FONT-SIZE: 12px">添加 </font></td>
<td width="0%"><IMG height="22" src="../images/split.gif" width="6" align="absMiddle"></td>
<td onMouseUp="this.className='up';"
onmousedown="this.className='down';" onMouseOver="this.className='up'" title="删除"
style="CURSOR: default" onMouseOut="this.className=''" noWrap width="0%"><img height="16" hspace="5" src="../images/delete.gif" width="16" align="absMiddle"><font style="FONT-SIZE: 12px">删除 </font></td>
<td width="0%"><IMG height="22" src="../images/split.gif" width="6" align="absMiddle"></td>
<td vAlign="middle" noWrap width="100%" height="25"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20">
</td>
</tr>
<form action="edit.asp" method="POST" name="form1" onSubmit="javascript:return fCheckForm();">
<input type="hidden" name="act" value="<%=act%>">
<input type="hidden" name="txtID" value="<%=nID%>">
<input type="hidden" name="txtCatID" value="<%=nCatID%>">
<input type="hidden" name="txtParentID" value="<%=nParentID%>">
<tr>
<td>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#C0C0C0">
<%
mmI=0
do while mmI<FieldNum
%>
<tr bgcolor="#FFFFFF">
<td id="td1<%=mmI%>" align="right" bgcolor="#E0E0E0" onMouseOver="javaScript:document.all.td1<%=mmI%>.bgColor='#E0EfEf';document.all.td2<%=mmI%>.bgColor='#E0EfEf';" onMouseOut="javascript:document.all.td1<%=mmI%>.bgColor='#E0E0E0';document.all.td2<%=mmI%>.bgColor='#ffffff';"><%=Field(mmI,1)%>：</td>
<td id="td2<%=mmI%>" bgcolor="#FFFFFF" onMouseOver="javaScript:document.all.td1<%=mmI%>.bgColor='#E0EfEf';document.all.td2<%=mmI%>.bgColor='#E0EfEf';" onMouseOut="javascript:document.all.td1<%=mmI%>.bgColor='#E0E0E0';document.all.td2<%=mmI%>.bgColor='#ffffff';"><%call listField(mmI)%>
</td>
</tr>
<%
mmI=mmI+1
loop
%>
<tr bgcolor="#FFFFFF">
<td width="15%" height="35" align="right" bgcolor="#E0E0E0"> </td>
<td><input type="submit" name="btnOK" <%If nID<>0 Then%>value=" 修改 "<%Else%>value=" 添加 "<%End If%> class="button3">
<input type="button" name="btnCancel" value=" 取消 " class="button3" onClick="javascript:location.href='<%=BackPath%>?CatID=<%=nCatID%>&ParentID=<%=nParentID%>'"> </td>
</tr>
</table>
</td>
</tr>
</form>
<tr>
<td></td>
</tr>
</table>
<br>
</body>
</html>
<%
Call DBConnEnd()
%>
