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 

%>