weditor.asp

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· ASP 代码 · 共 45 行

<%
Class WEditor
Private strPathName
Private strWidth, strHeight
Private strValue

Private Sub Class_Initialize()
    strPathName = "/weditor/"
    strWidth = "100%"
    strHeight = "200"
End Sub

Public Property Let PathName(ByVal strIn)
    strPathName = strIn
End Property

Public Property Let Width(ByVal strIn)
    strWidth = strIn
End Property

Public Property Let Height(ByVal strIn)
    strHeight = strIn
End Property

Public Property Let Value(ByVal strIn)
    strValue = strIn
End Property

Public Sub Create(ByVal strName)
    Dim tmp
    tmp = "<div>"
    tmp = tmp & "<input type=""hidden"" id=""$(Name)"" name=""$(Name)"" value=""$(Value)"" />"
    tmp = tmp & "<input type=""hidden"" id=""$(Name)Config"" value=""$(ConfigValue)"" />"
    tmp = tmp & "<iframe id=""$(Name)Frame"" src=""$(Path)editor/WEditor.html?Name=$(Name)"" width=""$(Width)"" height=""$(Height)"" frameborder=""0"" scrolling=""no""></iframe>"
    tmp = tmp & "</div>"
    tmp = Replace(tmp, "$(Name)", strName)
    tmp = Replace(tmp, "$(Value)", Server.HTMLEncode(strValue))
    tmp = Replace(tmp, "$(Path)", strPathName)
    tmp = Replace(tmp, "$(Width)", strWidth)
    tmp = Replace(tmp, "$(Height)", strHeight)
    Response.Write tmp
End Sub
End Class
%>