"
RetHtml=RetHtml&" "
RetHtml=RetHtml&"
"
RetHtml=Rethtml&""
Erase bv_arr
END IF
ShowBookVoteForm=RetHtml
End Function
%>
<%
function replace_Text(Str)
dim Check
if Str="" then
Check =""
replace_Text=Check
else
Str =Replace(Str,"<","<", 1, -1, 0)
Str =Replace(Str,">",">", 1, -1, 0)
Str =Replace(Str, "scrip", "scrip", 1, -1, 0)
Str =Replace(Str, "SCRIP", "SCRIP", 1, -1, 0)
Str =Replace(Str, "Scrip", "Scrip", 1, -1, 0)
Str =Replace(Str, "scrip", "Scrip", 1, -1, 0)
Str =Replace(Str, "objec", "objec", 1, -1, 0)
Str =Replace(Str, "OBJEC", "OBJEC", 1, -1, 0)
Str =Replace(Str, "Objec", "Objec", 1, -1, 0)
Str =Replace(Str, "objec", "Objec", 1, -1, 0)
Str =Replace(Str, "apple", "apple", 1, -1, 0)
Str =Replace(Str, "APPLE", "APPLE", 1, -1, 0)
Str =Replace(Str, "Apple", "Apple", 1, -1, 0)
Str =Replace(Str, "apple", "Apple", 1, -1, 0)
Str =Replace(Str, "[", "[")
Str =Replace(Str, "]", "]")
Str =Replace(Str, "=", "=", 1, -1, 0)
'Str =Replace(Str, "’", "’’", 1, -1, 1)
Str =Replace(Str, "select", "select", 1, -1, 0)
Str =Replace(Str, "execute", "execute", 1, -1, 0)
Str =Replace(Str, "exec", "exec", 1, -1, 0)
Str =Replace(Str, "join", "join", 1, -1, 0)
Str =Replace(Str, "union", "union", 1, -1, 0)
Str =Replace(Str, "where", "where", 1, -1, 0)
Str =Replace(Str, "insert", "insert", 1, -1, 0)
Str =Replace(Str, "delete", "delete", 1, -1, 0)
Str =Replace(Str, "update", "update", 1, -1, 0)
Str =Replace(Str, "like", "like", 1, -1, 0)
Str = Replace(Str, "drop", "drop", 1, -1, 0)
Str = Replace(Str, "create", "create", 1, -1, 0)
Str = Replace(Str, "rename", "rename", 1, -1, 0)
Str = Replace(Str, "count", "count", 1, -1, 0)
Str = Replace(Str, "chr", "chr", 1, -1, 0)
Str = Replace(Str, "mid", "mid", 1, -1, 0)
Str = Replace(Str, "truncate", "truncate", 1, -1, 0)
Str = Replace(Str, "nchar", "nchar", 1, -1, 0)
Str = Replace(Str, "char", "char", 1, -1, 0)
Str = Replace(Str, "alter", "alter", 1, -1, 0)
Str = Replace(Str, "cast", "cast", 1, -1, 0)
Str = Replace(Str, "exists", "exists", 1, -1, 0)
'Str = Replace(Str,Chr(13),"", 1, -1, 1) Check = Replace(Str,"'","’") replace_Text=Check End if End function function replace_Text2(Str) dim Check if Str="" then Check ="" else Str =Replace(Str,"<","<", 1, -1, 1) Str =Replace(Str,">",">", 1, -1, 1) Str =Replace(Str, "script", "script", 1, -1, 0) Str =Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0) Str =Replace(Str, "Script", "Script", 1, -1, 0) Str =Replace(Str, "script", "Script", 1, -1, 1) Str =Replace(Str, "object", "object", 1, -1, 0) Str =Replace(Str, "OBJECT", "OBJECT", 1, -1, 0) Str =Replace(Str, "Object", "Object", 1, -1, 0) Str =Replace(Str, "object", "Object", 1, -1, 1) Str =Replace(Str, "applet", "applet", 1, -1, 0) Str =Replace(Str, "APPLET", "APPLET", 1, -1, 0) Str =Replace(Str, "Applet", "Applet", 1, -1, 0) Str =Replace(Str, "applet", "Applet", 1, -1, 0) Str =Replace(Str, "[", "[") Str =Replace(Str, "]", "]") Str =Replace(Str, "=", "=", 1, -1, 0) 'Str =Replace(Str, "’", "’’", 1, -1, 1) Str =Replace(Str, "select", "select", 1, -1, 0) Str =Replace(Str, "execute", "execute", 1, -1, 0) Str =Replace(Str, "exec", "exec", 1, -1, 0) Str =Replace(Str, "join", "join", 1, -1, 0) Str =Replace(Str, "union", "union", 1, -1, 0) Str =Replace(Str, "where", "where", 1, -1, 0) Str =Replace(Str, "insert", "insert", 1, -1, 0) Str =Replace(Str, "delete", "delete", 1, -1, 0) Str =Replace(Str, "update", "update", 1, -1, 0) Str =Replace(Str, "like", "like", 1, -1, 0) Str = Replace(Str, "drop", "drop", 1, -1, 0) Str = Replace(Str, "create", "create", 1, -1, 0) Str = Replace(Str, "rename", "rename", 1, -1, 0) Str = Replace(Str, "count", "count", 1, -1, 0) Str = Replace(Str, "chr", "chr", 1, -1, 0) Str = Replace(Str, "mid", "mid", 1, -1, 0) Str = Replace(Str, "truncate", "truncate", 1, -1, 0) Str = Replace(Str, "nchar", "nchar", 1, -1, 0) Str = Replace(Str, "char", "char", 1, -1, 0) Str = Replace(Str, "alter", "alter", 1, -1, 0) Str = Replace(Str, "cast", "cast", 1, -1, 0) Str = Replace(Str, "exists", "exists", 1, -1, 0) 'Str = Replace(Str,Chr(13),"
", 1, -1, 1) Check = Replace(Str,"'","’") Check=replace_ChNumKeyWord(Check) End if replace_Text2=Check End function function replace_ChNumKeyWord(Str) dim Check,str_qj,str_bj,arr_bj,arr_qj,rpii str_bj="1|2|3|4|5|6|7|8|9|0|Q|W|E|R|T|Y|U|I|O|P|A|S|D|F|G|H|J|K|L|Z|X|C|V|B|N|M" str_qj="１|２|３|４|５|６|７|８|９|０|Ｑ|Ｗ|Ｅ|Ｒ|Ｔ|Ｙ|Ｕ|Ｉ|Ｏ|Ｐ|Ａ|Ｓ|Ｄ|Ｆ|Ｇ|Ｈ|Ｊ|Ｋ|Ｌ|Ｚ|Ｘ|Ｃ|Ｖ|Ｂ|Ｎ|Ｍ" arr_bj=split(str_bj,"|") arr_qj=split(str_qj,"|") if Str="" then Check ="" else '转换半角全角 for rpii=0 to 35 Str =Replace(Str, arr_qj(rpii), arr_bj(rpii)) next Str =Replace(Str, "qq", "**", 1, -1, 0) Str =Replace(Str, "www", "***", 1, -1, 0) Str =Replace(Str, "com", "***", 1, -1, 0) Str =Replace(Str, "cn", "**", 1, -1, 0) Str =Replace(Str, "net", "***", 1, -1, 0) Str =Replace(Str, "org", "***", 1, -1, 0) Str =Replace(Str, "la", "**", 1, -1, 0) Str =Replace(Str, "cc", "**", 1, -1, 0) Str =Replace(Str, "mobil", "*****", 1, -1, 0) Str =Replace(Str, "mail", "****", 1, -1, 0) Str =Replace(Str, "call", "****", 1, -1, 0) Str =Replace(Str, "phone", "****", 1, -1, 0) Str =Replace(Str, "mobile", "****", 1, -1, 0) Str =Replace(Str, "contact", "****", 1, -1, 0) Str =Replace(Str, "mobile", "*****", 1, -1, 0) Str =Replace(Str, "shit", "****", 1, -1, 0) '过滤电话 Str =ReplaceStr_liyu(Str,"^(\d{3}|\d{4})?[\-]?(\d{8}|\d{7})$") '过滤手机号码 Str =ReplaceStr_liyu(Str,"13\d{9}|15\d{9}") '过滤QQ号码 Str =ReplaceStr_liyu(Str,"[0-9]{5,10}") Check=Str End if replace_ChNumKeyWord=Check End function Function ReplaceStr_liyu(Textstr,Pattern_str) Dim Str,re Str=Textstr Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern=Pattern_str Str=re.Replace(Str, "******") Set Re=Nothing ReplaceStr_liyu=Str End Function %> <% Session.CodePage=936 If Not isNumeric(articleid) Then Response.Write("无效的书号！") Response.End() End If %> <% 'Dim Connstr,Conn,DB 'session.timeout=900 Connstr="PROVIDER=SQLOLEDB;server=192.168.0.1;uid=starbook;pwd=starbook7&8*9(4$;database=starbook;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Connstr If Err Then Err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If Sub ConnectionDatabase() Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Connstr If Err Then Err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If End Sub Sub CloseConn() On Error Resume Next If IsObject(Conn) Then Conn.Close Set Conn = Nothing End If 'Set MyCls=Nothing End Sub Function SafeRequest(SunName) Dim SunValue SunValue=replace(Request(SunName)," ","") If not isNumeric(SunValue) then Response.write "非法" & SunName & "参数！" Response.end End if SafeRequest=SunValue End function '------------------------------------------------------------' ' Set List = Conn.Execute("Select * From System") ' WebName = List("WebName") ' WebUrl = List("WebUrl") ' webemail = List("webemail") ' zzname = List("zzname") ' qq = List("webqq") %> <% If Len(ChildDomain)<1 or IsNull(ChildDomain) Then ChildDomain=False '------------文章相关信息----------------------- Set Rs=Server.CreateObject("ADODB.RecordSet") strSQL="Select articleid,articlename,intro,author,postdate,allvisit,favorite,allvote,sortname,articletype,permission,[size],fullflag,monthvisit,monthvote,weekvisit,weekvote,imgflag,sortid,artschedule,notice,lastupdate,topsortname,ticketvote,forenote,articletype from articleview where articleid="&Clng(articleid) Rs.Open strSQL,Conn,1,1 If Rs.Eof Then Response.Write("无效的书号！") CloseConn() Response.End() Else Arr_Article_Info=Rs.GetRows End If Rs.Close() bookurl=getFullUrl(Arr_Article_Info(22,0),Request.QueryString("articleid"),Arr_Article_Info(8,0),"",ChildDomain,ChildExceptive) If Instr(Lcase(Request.ServerVariables("URL")),".asp")>0 Then CloseConn() Response.Redirect(bookurl) Response.End() End If Dim Month_Click,Week_Click '------------作者推荐----------------------- strSQL="select top 8 articleid,articlename,sortname,topsortname from articleview where articleid in(select articleid from CommendByAuthor where articleid<>0 and bookid="&Clng(articleid)&") order by allvote desc" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then Arr_Author_Commend = Rs.GetRows len_Author_Commend=Ubound(Arr_Author_Commend,2) Else len_Author_Commend=-1 End If Rs.Close() vote=ShowBookVoteForm(articleid) '------------------该作者其他作品------ strSQL="select articleid,articlename,sortname,topsortname,imgflag from articleview where articleid<>"&Clng(articleid)&" and author='"&Arr_Article_Info(3,0)&"'" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then Arr_Other_Article = Rs.GetRows len_Other_Article=Ubound(Arr_Other_Article,2) Else len_Other_Article=-1 End If Rs.Close '----------------------关注该作品的读者----------------- strSQL="select top 8 vistor.vistorid,vistor.[name],vistor.photo,vistor.isvip,vistor.status from vistor inner join favorite on vistor.vistorid=favorite.vistorid and nofavorite=0 and favorite.articleid="&Clng(articleid)&" where vistor.[name]<>'admin' order by favorite.updatetime desc" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then Arr_Attention=Rs.GetRows Len_Attention=Ubound(Arr_Attention,2) Else Len_Attention=-1 End If Rs.Close '----------------公众版最新更新-------- haveChapter=True strSQL="select top 1 chaptername,chapterid,chapterorder,lastupdate from chapter where articleid="&Clng(articleid)&" and chaptertype=0 and isvip=0 order by chapterorder desc" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then publicChaptername=Rs("chaptername") publicChapterid=Rs("chapterid") publicChapterorder=Rs("chapterorder") publicChapterUpdate=Rs("lastupdate") Else haveChaper=False End If Rs.Close haveVolume=True If haveChapter Then strSQL="select top 1 chaptername,chapterid from chapter where articleid="&Clng(articleid)&" and chaptertype=1 and chapterorder<"&Clng(publicChapterorder)&" order by chapterorder desc" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then publicVolumename=Rs("chaptername") publicVolumeid=Rs("chapterid") Else haveVolume=False End If Rs.Close End If '----------------VIP版最新更新---------- haveVIPChapter=True If Cint(Arr_Article_Info(25,0))=1 Then strSQL="select top 1 chaptername,chapterid,chapterorder,lastupdate from chapter where articleid="&Clng(articleid)&" and chaptertype=0 and isvip=1 order by chapterorder desc" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then VIPChaptername=Rs("chaptername") VIPChapterid=Rs("chapterid") VIPChapterorder=Rs("chapterorder") VIPChapterUpdate=Rs("lastupdate") Else haveVIPChapter=False End If Rs.Close haveVIPVolume=True If haveVIPChapter Then strSQL="select top 1 chaptername,chapterid from chapter where articleid="&Clng(articleid)&" and chaptertype=1 and chapterorder<"&Clng(VIPChapterorder)&" order by chapterorder desc" Rs.Open strSQL,Conn,1,1 If Not Rs.Eof Then VIPVolumename=Rs("chaptername") VIPVolumeid=Rs("chapterid") Else haveVIPVolume=False End If Rs.Close End If Else haveVIPChapter=False End If '------------------月点击-------------- Month_Click=Arr_Article_Info(13,0) 'sql="select sum(click) from user_click where articleid="&Clng(articleid)&" and datepart(year,daytime)=datepart(year,'"& now() &"') and datepart(month,daytime)=datepart(month,'"& now() &"')" 'Rs.Open sql,Conn,1,1 'Month_Click=0 'If Not Rs.Eof Then ' Month_Click=Rs(0) 'End If 'Rs.Close '------------------周点击----------------- Week_Click=Arr_Article_Info(15,0) 'sql="select sum(click) from user_click where articleid="&Clng(articleid)&" and datepart(weekday,daytime)=datepart(weekday,'"& now() &"')" 'Rs.Open sql,Conn,1,1 'Week_Click=0 'If Not Rs.Eof Then ' Week_Click=Rs(0) 'End If 'Rs.Close '------------------月推荐----------------- Month_Vote=Arr_Article_Info(14,0) 'sql="select count(*) from commend where type='普通推荐' and articleid="&Clng(articleid)&" and datepart(year,[time])=datepart(year,'"& now() &"') and datepart(month,[time])=datepart(month,'"& now() &"')" 'Rs.Open sql,Conn,1,1 'Month_Vote=Rs(0) 'Rs.Close '------------------周推荐----------------- Week_Vote=Arr_Article_Info(16,0) 'sql="select count(*) from commend where type='普通推荐' and articleid="&Clng(articleid)&" and datepart(weekday,[time])=datepart(weekday,'"& now() &"')" 'Rs.Open sql,Conn,1,1 'Week_Vote=Rs(0) 'Rs.Close '------------------评论数----------------- sql="select count(*) from observe where articleid="&Clng(articleid) Rs.Open sql,Conn,1,1 All_Oberve=Rs(0) Rs.Close '------------------评论数----------------- sql="select count(*) from observe where iselite=1 and articleid="&Clng(articleid) Rs.Open sql,Conn,1,1 Elite_Oberve=Rs(0) Rs.Close '------------------------书评----------------------- str_SQL="Select top 15 id,observer,title,content,articleid,times,ip,iselite from observe where articleid="&Clng(articleid)&" and status=1 order by times desc" Rs.Open str_SQL,Conn,1,1 If Not Rs.Eof Then Arr_Observe_Info=Rs.GetRows Len_Observe_Info=Ubound(Arr_Observe_Info,2) Else Len_Observe_Info=-1 End If Rs.Close '-----------------------邮件数------------------- Mail=False If Session("login")="true" Then Set Rs=Server.CreateObject("ADODB.RecordSet") strSQL="select count(*) from mailbox where issend=0 and username='"&replace_Text(Trim(Session("name")))&"'" Rs.Open strSQL,Conn,1,1 count_Mail=CDbl(Rs(0)) Rs.Close strSQL="select count(*) from mailbox where status='未读' and issend=0 and username='"&replace_Text(Trim(Session("name")))&"'" Rs.Open strSQL,Conn,1,1 count_Mail1=CDbl(Rs(0)) Rs.Close Set Rs=Nothing Mail=True End If '---------------------------是否有最新公告-------------------------------------- strSQL="select count(*) from affice where dateDiff(day,fddaddtime,'"& now() &"')<=7" Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open strSQL,Conn,1,1 News=Cint(Rs(0)) Rs.Close Set Rs=nothing CloseConn() articlename=Arr_Article_Info(1,0) articleid=Arr_Article_Info(0,0) sortname=Arr_Article_Info(8,0) topsortname=Arr_Article_Info(22,0) sorturl=Trim(translatePing(Arr_Article_Info(22,0))) articleintro=Arr_Article_Info(2,0) title=articlename&"/"&Arr_Article_Info(3,0)&"/"&topsortname&"/原文小说网-就是好看" imgurl="/images/nullb.jpg" If Arr_Article_Info(17,i) Then imgurl=getBigImgUrl_ChildSite(articleid) End If articleintro=Replace(Replace(Arr_Article_Info(2,0),Chr(13),"
"),Chr(32),"") bookurl=getFullUrl(topsortname,articleid,sortname,"",ChildDomain,ChildExceptive) menuurl=getFullUrl(topsortname,articleid,"menu","",ChildDomain,ChildExceptive) %>
<%If Session("login")<>"true" Then%>
您还没有登陆，请 登录 | 注册 | 充值
<%Else%>
原文欢迎您！<%=Session("name")%> 
<%If Mail Then Response.Write("("&count_Mail1&")")%>| 充值 | 玩游戏 | 退出
<%End If%>
<%If Mail Then Response.Write("("&count_Mail1&")")%>| 充值 | 玩游戏 | 退出
<%End If%>
请牢记本站域名:就是原文的拼音www.yuanwen.com
<%End If%> 首页 > <%=topsortname&"-"&sortname%> > <%=articlename%> (书号 <%=articleid%> )本书域名：<%=bookurl%>
<%If Arr_Article_Info(20,0)<>"" Then %>
<%End If%>
<%If Arr_Article_Info(24,0)<>"" Then %>
<%End If%>
<%If Len_Other_Article>-1 Then%>
<%End If%>
<%If Len_Attention>-1 Then%>
<%End If%>
- <%=Arr_Article_Info(20,0) &"("& Year(Arr_Article_Info(21,0))&"-"&Month(Arr_Article_Info(21,0))&"-"&Day(Arr_Article_Info(21,0))&")"%>
作者有话
- <%=Arr_Article_Info(24,0)%>
下集预告
- ">
" target="_self" title="<%=Arr_Other_Article(1,i)%>"><%=computeWordNum(Arr_Other_Article(1,i),7,True)%>
<%If (i+1) mod 6 =0 Then
If Len_Other_Article>5 Then
If allpage>10 Then
If page-4>0 and page+5<=allpage Then
firstpage=page-4
lastpage=page+5
ElseIf page-4>0 and page+5>allpage Then
firstpage=allpage-9
lastpage=allpage
ElseIf page-4<0 Then
firstpage=1
lastpage=10
End If
End If
Response.Write(" - ")
If page>1 Then Response.Write("<<")
Response.Write(" "&page&"/"&allpage&" ")
If page
>>") Response.Write(" ")
End If
page=page+1
Response.Write(" - ")
If page>1 Then Response.Write("<<")
Response.Write(" "&page&"/"&allpage&" ")
If page
>>") Response.Write(" ")
End If
%>
<%= Arr_Article_Info(3,0) %>的其他作品
<%page=1
allpage=Fix((Len_Other_Article+1)/6)
If (Len_Other_Article+1) mod 6 <>0 Then allpage=allpage+1
firstpage=1
lastpage=allpage
For i=0 to Len_Other_Article
imgurl="/images/null.jpg"
If Arr_Other_Article(4,i) Then
imgurl=getImgUrl_ChildSite(Arr_Other_Article(0,i))
End If
%>
")
End If
%>
<%Next%>
<%
If Len_Other_Article>5 Then
If allpage>10 Then
If page-4>0 and page+5<=allpage Then
firstpage=page-4
lastpage=page+5
ElseIf page-4>0 and page+5>allpage Then
firstpage=allpage-9
lastpage=allpage
End If
End If
Response.Write("
- <%=Trim(Arr_Attention(1,i))%>
类型:<%If CBool(Arr_Attention(3,i)) Then Response.Write("VIP用户") Else Response.Write("普通用户") End If%>
<%Else%>
- - <%=Trim(Arr_Attention(1,i))%> <%End If%> <%Next%>
关注本书的读者
<%For i=0 to Len_Attention%>
<%If i=0 Then%>
- ★ 抵制不良作品 ★ 拒绝浏览盗贴
★ 注意自我判断 ★ 请勿模仿主角
★ 适度阅读益脑 ★ 沉迷网络伤身
★ 合理安排时间 ★ 享受健康阅读
快乐阅读忠告
<%=articlename%>
| 作者:<%= Arr_Article_Info(3,0) %> | 驻站日期:<%=Year(Arr_Article_Info(4,0))&"-"&Month(Arr_Article_Info(4,0))&"-"&Day(Arr_Article_Info(4,0))%> | 作品性质:<%If Arr_Article_Info(9,0)=1 Then Response.Write("VIP作品") Else Response.Write("公众作品") End If %> | 作品大类:<%=Arr_Article_Info(8,0)%> |
| 授权状态:<%Select Case Cint(Arr_Article_Info(10,0)) Case 0:REsponse.Write("他站首发") Case 1:REsponse.Write("授权作品") Case 2:REsponse.Write("原文小说网作品") Case 3:REsponse.Write("专属作品") Case 4:REsponse.Write("A级签约") Case Else:REsponse.Write("未知") End Select%> | 完成字数:<%=Arr_Article_Info(11,0)%>字 | 写作进程:<%Select Case Cint(Arr_Article_Info(19,0)) Case 1:REsponse.Write("初期") Case 2:REsponse.Write("中期") Case 3:REsponse.Write("后期") Case 4:REsponse.Write("完成") Case Else:REsponse.Write("未知") End Select %> | 更新时间:<%=Year(Arr_Article_Info(21,0))&"-"&Month(Arr_Article_Info(21,0))&"-"&Day(Arr_Article_Info(21,0))%> |
| 总点击:<%=Arr_Article_Info(5,0)%> | 总推荐:<%=Arr_Article_Info(7,0)%> | 月票推荐:<%=Arr_Article_Info(23,0)%> | |
| 本月点击:<%= Month_Click %> | 本月推荐:<%= Month_Vote %> | 本周点击:<%= Week_Click %> | 本周推荐:<%= Week_Vote %> |
- <%=Arr_Article_Info(23,0)%>
- 投月票
- 【内容简介】
- <%=articleintro%>
- 点击阅读
- 加入收藏
- 推荐本书
- 查看<%=All_Oberve%>评论
- 精华<%=Elite_Oberve%>评论
- 宣传票 <%If Cint(Arr_Article_Info(9,0))=1 Then%>
- 订阅VIP章节 <%End If%>
<%If haveChapter Then%>
[公众版最新更新] "><%If haveVolume Then Response.Write(articlename&"·"&publicVolumename&" ") End If%><%=publicChaptername%> 更新时间：<%=publicChapterUpdate%>
<%End If%> <%If haveVIPChapter Then%> [VIP版最新更新] "><%If haveVIPVolume Then Response.Write(articlename&"·"&VIPVolumename&" ") End If%><%=VIPChaptername%> 更新时间：<%=VIPChapterUpdate%> [订阅VIP章节]<%End If%>
<%If len_Author_Commend>-1 Then%>
<%End If%> <%If haveVIPChapter Then%> [VIP版最新更新] "><%If haveVIPVolume Then Response.Write(articlename&"·"&VIPVolumename&" ") End If%><%=VIPChaptername%> 更新时间：<%=VIPChapterUpdate%> [订阅VIP章节]<%End If%>
- 原文作家<%=Arr_Article_Info(3,0)%>隆重推荐下列原文作品：[申请推荐互换]
<%For i=0 to Len_Author_Commend%>
- 《" target="_blank" title="<%=Arr_Author_Commend(1,i)%>"><%=Arr_Author_Commend(1,i)%>》 <%Next%>
<%For i=0 to Len_Observe_Info
ip=""
If Arr_Observe_Info(6,i)<>"" Then
Arr_IP=Split(Arr_Observe_Info(6,i),".")
ip=Arr_IP(0)&"."&Arr_IP(1)&"."&Arr_IP(2)&"."&"*"
End If
%>
-
标题:<%= Arr_Observe_Info(2,i) %><%If Arr_Observe_Info(7,i) Then%>[精华]<%End If%><%= Arr_Observe_Info(5,i) %> <%= Arr_Observe_Info(1,i) %> 发表 IP：<%= IP %>
- <%= Replace(Replace(Arr_Observe_Info(3,i),Chr(13)&Chr(10),"
"),Chr(32)," ") %>
注意：
请确认您发表的言论遵守国家法律法规、本站规则,
文责自负，原文网有权删除一切妨碍正常评论的主题及回复,
贴子严禁使用程序脚本或其他非法性字符，不支持贴图与链接,
提交评论时系统将自动复制评论，ctrl+v可再次粘贴评论.
《<%=articlename%>》为【<%=Arr_Article_Info(3,0)%>】呕心沥血倾情打造！现已独家授权原文小说网连载！支持好作品，支持作者码字，给原创足够动力！