<!--#include file="conn.asp" --> <!--#include file="function.asp" --> <% action=request.QueryString("action") %> <% if action="add" then %> <%

bid=request.form("bclass") sid=request.form("sclass") title=request.form("title") content=request.form("content") flage=0 photoname="no" pString1 = "<IMG"

pString2 = ">" '分别将两个关键词定义

pStart = InStr(content, pString1)'找到第一个图片信息的起始位置

If pStart <> 0 Then '如果代码中有图片信息的话 flage=1 pStop = InStr(pStart, content, pString2) + 1 '从上面找的起始部位开始找到第一个用于结束图片信息的”>”

photoname= Mid(content, pStart, pStop - pStart) end if set rs=server.CreateObject("adodb.recordset") sql="select * from news" rs.open sql,conn,3,3

rs.addnew rs("bid")=bid rs("sid")=sid rs("title")=title rs("photo")=flage rs("photoname")=Mid(content, pStart, pStop - pStart) rs("content")=content rs("addtime")=date() rs.update rs.close Response.Write "<script language=JavaScript>{window.alert('您好，新闻成功修改，请点击确定返回！');window.location.href='man_news.asp';}</script>"

%> <% End If %> 就是中间有注释的这一段photoname没有结果