3.1 评论表单在哪？我想改一下样式
找到一个“Manage\Admin\Refresh\Function.asp”里
Function GetNewsContent(TempletContent,NewsRecordSet,NewsContent)
..............
end if
TempletContent = Replace(TempletContent,"{News_SendFriend}","<a href=" & AvailableDoMain & "/" & "Sendmail.asp?NewsID=" & NewsRecordSet("NewsID") & " target=""_blank"">发送给好友</a>")
TempletContent = Replace(TempletContent,"{News_ClickNum}","<script src=" & AvailableDoMain & "/" & "Click.asp?NewsID="& RefreshID &"></script>")
TempletContent = Replace(TempletContent,"{News_ReviewContent}","<script src=" & AvailableDoMain & "/" & "ReviewContent.asp?NewsID="& NewsRecordSet("NewsID") &"></script>")
'Added By Koolls at 2005.10.11
TempletContent = Replace(TempletContent,"{News_Favorite}","<a target=""_blank"" Href=" & AvailableDoMain & "/" & UserDir &"/AddFavorite.asp?NewsID="& NewsRecordSet("ID") &">添加到收藏夹</a>")
Dim ReviewStr
if NewsRecordSet("ReviewTF") = 1 then
ReviewStr = "<table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""1""><form name=""form1"" method=""post"" action=""" & AvailableDoMain & "/" & "NewsReview.asp?action=add&NewsID=" & NewsRecordSet("NewsID") & """><tr>"
ReviewStr = ReviewStr & "<td width=""21%""><div align=right>会员名称：</div></td>"
ReviewStr = ReviewStr & "<td width=""79%""> <input name=""MemName"" type=""text"" id=""MemName"" size=""10"" value="""">密码：<input name=""Password"" type=""password"" size=""8"" id=""Password""><input name=""NoName"" type=""checkbox"" id=""NoName"" value=""1"">匿名 <font color=""#FF0000"">·</font><a href=""" & AvailableDoMain & "/"& UserDir &"/sRegister.asp""><font color=""#FF0000"">注册</font></a>·<a href=""" & AvailableDoMain & "/"& UserDir &"/User_GetPassword.asp"">忘记密码？</a></td></tr>"
ReviewStr = ReviewStr & "<td> <input name=""NewsID"" type=""hidden"" id=""NewsID"" value=""" & NewsRecordSet("NewsID") & """>"
ReviewStr = ReviewStr & "<input name=""action"" type=""hidden"" id=""action"" value=""add""></tr>"
ReviewStr = ReviewStr & "<tr><td align=""center""> <textarea name=""RevContent"" cols=""60"" rows=""5"" id=""RevContent""></textarea></td></tr>"
ReviewStr = ReviewStr & "<tr><td></td><td> <input type=""submit"" name=""Submit"" value=""发表""> <a href=""" & AvailableDoMain & "/" & "NewsReview.asp?NewsID=" & NewsRecordSet("NewsID") & """><font color=red><b>查看评论</b></font></a></td></tr></form></table>"
else
ReviewStr = ""
end if
TempletContent = Replace(TempletContent,"{News_Review}",ReviewStr)
GetNewsContent = TempletContent
End Function
是不是这个呀
搜索了以前的帖子，没一个有确切地址的