关于图片显示的问题,一直在线急切等待着

[wsjie998]

添加新闻页面
<%

' ======================
' 功能：增加新闻
' 描述：提供一个新增表单，包括新闻标题和新闻内容，新闻内容使用eWebEditor进行编辑；
' 同时接收上传文件，以便删除新闻时，同时删除上传文件；
' 并由编辑区中上传的文件，提供标题新闻的图片选择。
' ======================





' 本页内容区
Sub Content()
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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;
}

// getHTML()为eWebEditor自带的接口函数，功能为取编辑区的内容
if (eWebEditor1.getHTML()==""){
alert("新闻内容不能为空！");
return false;
}
//document.myform.submit();
}
</Script>
<form action="News_save.asp" method="post" name="myform">
<% '取源文件名 %>
<input type=hidden name=d_originalfilename>
<% '取保存的方件名，如果不要带路径的填充下拉框，可以在下面的表单项加入onchange事件 %>
<input type=hidden name=d_savefilename>
<% '取保存的文件名（带路径），使用带路径的填充下拉框 %>
<input type=hidden name=d_savepathfilename onchange="doChange(this,document.myform.d_picture)">

<table width="100%" border="0" align=center cellpadding="3" cellspacing=1 bgcolor="#DEDFDE">
<tr bgcolor="#F7F7F7">
<td colspan="2"><div align="center"><strong>新　闻　添　加</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100">新闻标题：</td>
<td><input type="text" name="d_title" value="" size="80" class="input_text">
<font color="#ff6600">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100">新闻分类：</td>
<td> <select name='d_ClassID'>
<%call NewsClass_Option(3,ClassID)%></select>

<FONT color=#ff6600><STRONG>注意：</STRONG>1、不能指定为含有子栏目的栏目，或者外部栏目</FONT></td>
</tr><tr bgcolor="#FFFFFF"><td width="100">图片新闻：</td>
<td><select name="d_picture" size=1><option value=''>不指定首页图片</option></select>　
<font color="#ff6600">添加首页图片新闻，请您选择相应的图片</font></td>
</tr>

<tr bgcolor="#FFFFFF">
<td width="100">添加时间：</td>
<td>
<input name="d_time" type="text" id="d_time" value="<%=date() %> " readonly size="20" class="input_text">
</td >
<td>

</td >
</tr>
<!--
<tr>
<td>标题图片：</td>
<td><select name="d_picture" size=1><option value=''>无</option></select> 当编辑区有插入图片时，将自动填充此下拉框</td>
</tr>
-->
<tr bgcolor="#FFFFFF">
<td width="100"><p>新闻内容：</p>
<p>·换行请按<FONT color=#ff6600>Shift+Enter</FONT><BR>
·另起一段请按<FONT color=#ff6600>Enter</FONT><BR>
</p></td>
<td>
<%
' ewebeditor.asp文件调用的参数：
' id：下面表单项textarea的名称，在此表单中是d_content，注意大小写
' style：编辑器的样式名称，可在eWebEditor的后台设置
' originalfilename：用于获取源文件名的表单项名，在此表单中是d_originalfilename
' savefilename：用于获取保存文件名的表单项名，在此表单中是d_savefilename
' savepathfilename：用于获取保存带路径文件名的表单项名，在此表单中是d_savepathfilename
%>
<textarea name="d_content" style="display:none" rows="1" cols="20"></textarea>
<iframe ID="eWebEditor1" src="../eWebEditor/ewebeditor.asp?id=d_content&style=zw&originalfilename=d_originalfilename&savefilename=d_savefilename&savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>

</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="40" colspan="2"><div align="center">
<input name="Action" type="hidden" id="Action" value="AddSaveNews">
<input type=submit name=btnSubmit value=" 提　交 " onClick="return doSubmit()" class="input_submit"> 　　　　　
<input type=reset name=btnReset value=" 重　填 " class="input_submit">
</div></td>
</tr>
</table>
</form>

<%
End Sub

%>

[wsjie998]

下面是News_Save.asp文件源代码
<!--#include file = "Startup.asp"-->
<%

call adminer()
Call Header()
Call ComeUrl()

Dim Action,FoundErr,ErrMsg
Action=Trim(Request("Action"))
if Action="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足</li>"
elseif Action="AddSaveNews" then
call AddSaveNews()
elseif Action="ModifySaveNews" then
call ModifySaveNews()
end if
if founderr=true then
call WriteErrMsg()
End if

Sub AddSaveNews()
Dim i

' 取提交过来的数据
' 注意取新闻内容的方法，因为对大表单的自动处理，一定要使用循环，否则大于100K的内容将取不到，单个表单项的限制为102399字节（100K左右）
Dim sTitle, sContent, sPicture,sTime,sClassid
sTitle = Request.Form("d_title")
sClassid=Request.Form("d_classid")
sTime=request.form("d_time")
sPicture = Request.Form("d_picture")

' 开始：eWebEditor编辑区取值-----------------
sContent = ""
For i = 1 To Request.Form("d_content").Count
sContent = sContent & Request.Form("d_content")(i)
Next
sContent = Request.Form("d_content")
if sContent = "" then
response.write "<script>"
response.write "alert('系统错误');"
response.write "history.back(1);"
response.write "</script>"
end if


' 结束：eWebEditor编辑区取值-----------------


' 以下为所有通过编辑器上传的所有文件相关信息，包括编辑区手动上传的和自动远程上传的
' GetSafeStr函数为过滤一些特殊字符，防止有些人恶意的破坏此演示程序
' 上传或远程获取前的原文件名，多个以"|"分隔
Dim sOriginalFileName
' 上传后保存到本地服闻ID
Dim sNewsID'务器的文件名（不带路径），多个以"|"分隔
Dim sSaveFileName
' 上传后保存到本地服务器的路径文件名，多个以"|"分隔
Dim sSavePathFileName
sOriginalFileName = GetSafeStr(Request.Form("d_originalfilename"))
sSaveFileName = GetSafeStr(Request.Form("d_savefilename"))
sSavePathFileName = GetSafeStr(Request.Form("d_savepathfilename"))

' 保存新闻内容，同时取出自增的新
sSql = "SELECT * FROM NewsData WHERE D_ID=0"
oRs.Open sSql, oConn, 1, 3
oRs.AddNew
oRs("D_Title") = sTitle
oRs("D_ClassID") = sclassid
oRs("D_Time")=sTime
oRs("D_Editor")=session("username")
oRs("D_Content") = sContent
oRs("D_Picture") = sPicture
oRs("D_OriginalFileName") = sOriginalFileName
oRs("D_SaveFileName") = sSaveFileName
oRs("D_SavePathFileName") = sSavePathFileName
oRs.Update
oRs.Close

' 输出成功保存信息
Response.Write "<p align=center>新闻添加成功，3秒后自动返回新闻添加页！<script>window.setTimeout(""location.href='News_Add.asp'"",3000);</script></p>"

End Sub

%>


<%
Sub ModifySaveNews()

Dim i

' 传入参数：新闻ID
Dim sNewsID
sNewsID = Trim(Request("id"))

' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序
If IsNumeric(sNewsID) = False Then
GoError "请通过页面上的链接进行操作，不要试图破坏此演示系统。"
End If

' 取提交过来的数据
' 注意取新闻内容的方法，因为对大表单的自动处理，一定要使用循环，否则大于100K的内容将取不到，单个表单项的限制为102399字节（100K左右）
Dim sTitle, sContent, sPicture,sTime,sClassid
sTitle = Request.Form("d_title")
sClassid=Request.Form("d_classid")
sTime=request.form("d_time")
sPicture = Request.Form("d_picture")



sContent = ""
For i = 1 To Request.Form("d_content").Count
sContent = sContent & Request.Form("d_content")(i)
Next
sContent = Request.Form("d_content")
if sContent = "" then
response.write "<script>"
response.write "alert('系统错误');"
response.write "history.back(1);"
response.write "</script>"
end if
' 结束：eWebEditor编辑区取值-----------------



' 以下为所有通过编辑器上传的所有文件相关信息，包括编辑区手动上传的和自动远程上传的
' GetSafeStr函数为过滤一些特殊字符，防止有些人恶意的破坏此演示程序
' 上传或远程获取前的原文件名，多个以"|"分隔
Dim sOriginalFileName
' 上传后保存到本地服务器的文件名（不带路径），多个以"|"分隔
Dim sSaveFileName
' 上传后保存到本地服务器的路径文件名，多个以"|"分隔
Dim sSavePathFileName
sOriginalFileName = GetSafeStr(Request.Form("d_originalfilename"))
sSaveFileName = GetSafeStr(Request.Form("d_savefilename"))
sSavePathFileName = GetSafeStr(Request.Form("d_savepathfilename"))


' 修改指定新闻内容
sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
oRs.Open sSql, oConn, 1, 3
If Not oRs.Eof Then
oRs("D_Title") = sTitle
oRs("D_ClassID") = sclassid
oRs("D_Time")=sTime
oRs("D_Content") = sContent
oRs("D_Picture") = sPicture
oRs("D_OriginalFileName") = sOriginalFileName
oRs("D_SaveFileName") = sSaveFileName
oRs("D_SavePathFileName") = sSavePathFileName
oRs.Update
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close

Response.Write "<p align=center>新闻（ID：" & sNewsID & "）修改保存成功，3秒后自动返回新闻修改页！<script>window.setTimeout(""location.href='News_Modify.asp?id=" & sNewsID & "'"",3000);</script></p>"

End Sub
%>

[wsjie998]

怎么没有人回啊

[binbin50]

到底什麼問題啊，
代碼那麼長，很少人會去看的。

[cncca]

提出具体的错误分析，给出关键代码。

[hlm750908]

真服了你
这么长的代码你还指望别人看
你看不看这么长的代码