www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > JsInHtml.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="Conn.asp"--> <!--#include file="Ex_Cls/Ex_SkinCls.asp"--> <% Dim action,ExComm,ExSkin,showcode Set ExComm=new Ex_CommonCls Set ExSkin=new Ex_SkinCls Action=ExComm.G(request("action")) Select Case action Case "more" ShowMore Case "cmtmore" showcode=cmtmore %> <%=ExComm.Html2Js("cmt"&request("id"),showcode)%> <% Case "info" ExComm.visitorCount() showcode=ExSkin.Info %> <%=ExComm.Html2Js("Ex_html_"&action,showcode)%> <% Case "login" showcode=ExSkin.Login %> <%=ExComm.Html2Js("Ex_html_"&action,showcode)%> <% Case "calendar" showcode=ExSkin.Calendar(Request("c_year"),Request("c_month"),Request("c_day")) %> <%=ExComm.Html2Js("Ex_html_"&action,showcode)%> <% End Select '显示回复中的编辑和删除 Function CmtMore Dim id,parentid,uname,cmtRs id=ExComm.G(request("id")) parentid=ExComm.G(request("parentid")) uname=ExComm.G(request("uname")) If ExComm.isLOGIN("user") And uname=session("user") then CmtMore="<a href="""&Application(sn&"blogurl")&"blogview.asp?ac=edit&editid="&id&"&id="&parentid&"#cmtpost"">编辑</a>" End If If ExComm.IsLogin("admin") Then CmtMore=CmtMore&" | <a href="""&Application(sn&"blogurl")&"admin_Cmt.asp?action=del&id="&id&""" onclick=""return confirm('是否要删除?')"">删除</a>" End If End Function Sub ShowMore() Dim ids,i,ExSkin Set ExSkin=new Ex_SkinCls ids=ExComm.G(request("ids")) If InStr(ids,",")<>0 Then ids=Split(ids,",") For i=0 To UBound(ids)-1 showcode=ExSkin.more(CLng(ids(i))) Response.Write ExComm.Html2Js(ids(i),showcode) Next ElseIf ids<>"" Then showcode=ExSkin.more(CLng(ids)) Response.Write ExComm.Html2Js(ids,showcode) End If End Sub %>