28,391
社区成员
发帖
与我相关
我的任务
分享下载了一个ASP程序，可是在//news/shownews.asp?id=25中总有不想要的东西该怎么办？？？
但显示新闻时进入//news/shownews.asp?id=25等页面，可是在邮件信箱上写着AAA@AAA.COM，请问如何改成我设订的信箱号或删除呢？
我用FRONTPAGE只能打开//news/shownews.asp，显示页面空白，而代码如下：
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("admin/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
sql="update xinwen set hits=hits+1 where newsid=" & cstr(request("id"))
exec= "select * from xinwen order by newsid="&request("id")
rs.Open exec, Conn, 1,1
text=rs("content")
tmplen1=instr(text,"/**/")
tmplen2=len(text)-tmplen1-3
tmptext1=left(text,tmplen1-1)
tmptext2=right(text,tmplen2)
response.write tmptext1
response.write"<tr><td valign='top'><br><br><br><b>---------- 相 关 新 闻 ----------</b><br>"
set rsc=server.createobject("adodb.recordset")
rsc.open "select top 10 * from xinwen where key like '%" & trim(rs("key")) & "%' and newsid<>" & cstr(rs("newsid")) & " order by ntime DESC",conn,1,1
if rsc.bof and rsc.eof then
response.write "暂时没有相关新闻"
else
response.write "<ul type=circle>"
do while not rsc.eof
response.write "<li>"
if cstr(rsc("imgcount"))<>0 then
response.write "<font color='#FF0400' font size='1'>[图文]</font>"
end if
thedate="(" & cstr(year(rsc("ntime"))) & "-" & cstr(month(rsc("ntime"))) & "-" & cstr(day(rsc("ntime"))) & ")"
response.write "<a href='shownews.asp?id=" & cstr(rsc("newsid")) & "' target=_blank>" & trim(rsc("title")) & "</a><font color='#6365CE' size='1'>" & thedate & "</font>"
if month(cdate(trim(rs("ntime"))))=month(now()) and clng(day(cdate(trim(rs("ntime"))))+1)>=clng(day(now())) then
response.write "<img src=images/news.gif><br>"
end if
rsc.movenext
loop
response.write "</ul>"
end if
response.write"</td></tr>"
response.write tmptext2
rsc.close
set rsc=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<head>
</head>
请问如何解决？？？？？？？？？？？？？？？？？？？？
我用FRONTPAGE只能打开//news/shownews.asp，显示页面空白，而代码如下：
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("admin/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
sql="update xinwen set hits=hits+1 where newsid=" & cstr(request("id"))
exec= "select * from xinwen order by newsid="&request("id")
rs.Open exec, Conn, 1,1
text=rs("content")
tmplen1=instr(text,"/**/")
tmplen2=len(text)-tmplen1-3
tmptext1=left(text,tmplen1-1)
tmptext2=right(text,tmplen2)
response.write tmptext1
response.write"<tr><td valign='top'><br><br><br><b>---------- 相 关 新 闻 ----------</b><br>"
set rsc=server.createobject("adodb.recordset")
rsc.open "select top 10 * from xinwen where key like '%" & trim(rs("key")) & "%' and newsid<>" & cstr(rs("newsid")) & " order by ntime DESC",conn,1,1
if rsc.bof and rsc.eof then
response.write "暂时没有相关新闻"
else
response.write "<ul type=circle>"
do while not rsc.eof
response.write "<li>"
if cstr(rsc("imgcount"))<>0 then
response.write "<font color='#FF0400' font size='1'>[图文]</font>"
end if
thedate="(" & cstr(year(rsc("ntime"))) & "-" & cstr(month(rsc("ntime"))) & "-" & cstr(day(rsc("ntime"))) & ")"
response.write "<a href='shownews.asp?id=" & cstr(rsc("newsid")) & "' target=_blank>" & trim(rsc("title")) & "</a><font color='#6365CE' size='1'>" & thedate & "</font>"
if month(cdate(trim(rs("ntime"))))=month(now()) and clng(day(cdate(trim(rs("ntime"))))+1)>=clng(day(now())) then
response.write "<img src=images/news.gif><br>"
end if
rsc.movenext
loop
response.write "</ul>"
end if
response.write"</td></tr>"
response.write tmptext2
rsc.close
set rsc=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<head>
</head>
请问如何解决？？？？？？？？？？？？？？？？？？？？
...全文
请发表友善的回复…
发表回复
dzogchen 2001-12-19
- 打赏
- 举报
在试试给分
cpplus 2001-12-18
- 打赏
- 举报
你贴的这段好象没有MAIL地址啊，总不会是在数据库里吧？
看看其他的地方是不是有AAA@AAA.COM
看看其他的地方是不是有AAA@AAA.COM
slightgao 2001-12-18
- 打赏
- 举报
检查库里面是否有aaa@aaa.com的东西？
tripofdream 2001-12-18
- 打赏
- 举报
看来数据库中content字段的的格式是这样的:新闻内容/**/AAA@AAA.com,把这句
response.write tmptext2
去掉试试.
response.write tmptext2
去掉试试.
dzogchen 2001-12-18
- 打赏
- 举报
我给各位加分，填写密码并按按钮，他提示“您不能给自己加分，请返回重新输入......，” WHY
dzogchen 2001-12-18
- 打赏
- 举报
我查到了在数据库里，感谢大家
dzogchen 2001-12-18
- 打赏
- 举报
我用查找试过了整个网站也没有这个AAA，可是一看新闻就出现了
