?? view.asp
字號:
Response.Write " <img src=""img/mood10.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""11"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood11.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""12"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood12.gif"" tppabs="""" width=""15"" height=""15""> 字數：<input type='text' value='0' id='reviewLen' size='3' style='border-width:0;background:transparent;'><font title='等于或小于255個字！'>≤255</font><br>" & vbCrLf
Response.Write "點評：<textarea name=""review"" cols=""40"" rows=""3"" onkeydown=""showLen(this)"" onkeyup=""showLen(this)""></textarea><br>" & vbCrLf
userid=request.Cookies("HX_USER")("uid")
sql="select * from [User] where userid=" & userid &""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if request.Cookies("HX_USER")("User_Name")<>"" then
Response.Write "<input type=""hidden"" name=""reviewemail"" value="&rs("Email")&" autocomplete=""off""/ >" & vbCrLf
Response.Write "<input type=""hidden"" name=""reviewname"" value="&rs("UserName")&" autocomplete=""off""/>" & vbCrLf
Response.Write ""&rs("UserName")&"，你已登陸請直接發表你的評論。" & vbCrLf
else
Response.Write "郵箱：<input type=""text"" name=""reviewemail"" value="""" maxlength=""25"" size=""17"" autocomplete=""off""/>" & vbCrLf
Response.Write "姓名：<input type=""text"" name=""reviewname"" value="""" maxlength=""25"" size=""17"" autocomplete=""off""/><br>" & vbCrLf
rs.Close
set rs=nothing
conn.close
set conn=nothing
end if
Response.Write "<input type=""submit"" name=""submit"" value=""發表"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""> <input type=""reset"" value=""重填"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td>" & vbCrLf
Response.Write " <td width=""350"">" & vbCrLf
Response.Write " <ul style=""list-style-type:square;margin-left:1em;line-height:180%"">" & vbCrLf
Response.Write " <li>尊重網上道德，遵守中華人民共和國的各項有關法律法規</li>" & vbCrLf
Response.Write " <li>承擔一切因您的行為而直接或間接導致的民事或刑事法律責任</li>" & vbCrLf
Response.Write " <li>本站管理人員有權保留或刪除其管轄留言中的任意內容</li>" & vbCrLf
Response.Write " <li>本站有權在網站內轉載或引用您的評論</li>" & vbCrLf
Response.Write " <li>參與本評論即表明您已經閱讀并接受上述條款</li>" & vbCrLf
Response.Write " </ul>" & vbCrLf
elseif point_js="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td align=""center"">【特效評論已關閉】" & vbCrLf
Response.Write " </td></tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
End If
Response.Write " </form>"& vbCrLf
Response.Write " </td></tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
set rscount=conn.execute("select * from js")
sql="UPDATE js SET js_count = js_count + 1 where js_id="&request.querystring("js_id")
conn.execute (sql)
rscount.close
set rscount=nothing
end if
'影視
if request.QueryString("action")="vid" then
sql="select * from vid where vid_id="&request.querystring("vid_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25""> <a href='index.asp'>首 頁</a> - <a href='vid.asp'>影視中心</a>"
sql="select vidcat_id,vidcat_name from vidcat where vidcat_id="&rs("vidcat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""vid.asp?vidcat_id="&rs1("vidcat_id")&""">"&rs1("vidcat_name")&"</a>"
rs1.close
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<table width=""758"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"" class=""table-shangxia""><tr><td height=""23"" class=""a1""> 相關評論<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("title")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
if point_vid="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">當前沒有評論</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showvid.asp?vid_id="&rs("vid_id")&""">查看所評論的影視</a> </td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""758"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"" class=""table-shangxia""><tr><td height=""23"" class=""a1""> 發表評論</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=vid&vid_id="&rs("vid_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td align=""center""><input type=""radio"" value=""1"" name=""face"" checked>" & vbCrLf
Response.Write " <img src=""img/mood1.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""2"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood2.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""3"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood3.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""4"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood4.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""5"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood5.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""6"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood6.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""7"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood7.gif"" tppabs="""" width=""15"" height=""15""> <br>" & vbCrLf
Response.Write " <input type=""radio"" value=""8"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood8.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""9"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood9.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""10"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood10.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""11"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood11.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""12"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood12.gif"" tppabs="""" width=""15"" height=""15""> 字數：<input type='text' value='0' id='reviewLen' size='3' style='border-width:0;background:transparent;'><font title='等于或小于255個字！'>≤255</font><br>" & vbCrLf
Response.Write "點評：<textarea name=""review"" cols=""40"" rows=""3"" onkeydown=""showLen(this)"" onkeyup=""showLen(this)""></textarea><br>" & vbCrLf
userid=request.Cookies("HX_USER")("uid")
sql="select * from [User] where userid=" & userid &""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if request.Cookies("HX_USER")("User_Name")<>"" then
Response.Write "<input type=""hidden"" name=""reviewemail"" value="&rs("Email")&" autocomplete=""off""/ >" & vbCrLf
Response.Write "<input type=""hidden"" name=""reviewname"" value="&rs("UserName")&" autocomplete=""off""/>" & vbCrLf
Response.Write ""&rs("UserName")&"，你已登陸請直接發表你的評論。" & vbCrLf
else
Response.Write "郵箱：<input type=""text"" name=""reviewemail"" value="""" maxlength=""25"" size=""17"" autocomplete=""off""/>" & vbCrLf
Response.Write "姓名：<input type=""text"" name=""reviewname"" value="""" maxlength=""25"" size=""17"" autocomplete=""off""/><br>" & vbCrLf
rs.Close
set rs=nothing
conn.close
set conn=nothing
end if
Response.Write "<input type=""submit"" name=""submit"" value=""發表"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""> <input type=""reset"" value=""重填"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td>" & vbCrLf
Response.Write " <td width=""350"">" & vbCrLf
Response.Write " <ul style=""list-style-type:square;margin-left:1em;line-height:180%"">" & vbCrLf
Response.Write " <li>尊重網上道德，遵守中華人民共和國的各項有關法律法規</li>" & vbCrLf
Response.Write " <li>承擔一切因您的行為而直接或間接導致的民事或刑事法律責任</li>" & vbCrLf
Response.Write " <li>本站管理人員有權保留或刪除其管轄留言中的任意內容</li>" & vbCrLf
Response.Write " <li>本站有權在網站內轉載或引用您的評論</li>" & vbCrLf
Response.Write " <li>參與本評論即表明您已經閱讀并接受上述條款</li>" & vbCrLf
Response.Write " </ul>" & vbCrLf
elseif point_js="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td align=""center"">【影視評論已關閉】" & vbCrLf
Response.Write " </td></tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
End If
Response.Write " </form>"& vbCrLf
Response.Write " </td></tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
set rscount=conn.execute("select * from vid")
sql="UPDATE vid SET hits = hits + 1 where vid_id="&request.querystring("vid_id")
conn.execute (sql)
rscount.close
set rscount=nothing
end if
'圖片
if request.QueryString("action")="pic" then
sql="select * from pic where pic_id="&request.querystring("pic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25""> <a href='index.asp'>首 頁</a> - <a href='pic.asp'>精美圖片</a>"
sql="select piccat_id,piccat_name from piccat where piccat_id="&rs("piccat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""pic.asp?cat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a>"
rs1.close
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<table width=""758"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"" class=""table-shangxia""><tr><td height=""23"" class=""a1""> 相關評論<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("pic_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
if point_pic="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -