inc_transtag.asp

在线考试系统

<%

'///////////////////////////////////////////////////
'
'		Copyright (c) www.r4cn.com BY YangGuanghong
'										2002-10
'
'///////////////////////////////////////////////////


Sub TransText(sTmp)
	dim ns
	If Len(sTmp)=0 Then Exit Sub

	ns=Replace(sTmp,"&","&amp;")
	ns=Replace(ns,"<","&lt;")
	ns=Replace(ns,">","&gt;")
	ns=Replace(ns,chr(13),"")
	ns=Replace(ns,chr(10),"<br>" & vbcrlf)
	ns=Replace(ns,chr(34),"&quot;")
	ns=Replace(ns,chr(9),"&quot;")
	ns=Replace(ns,"  ","　")
	sTmp=ns

End Sub

Sub TransTag(sTmp, iType)

	If Len(sTmp)=0 Then Exit Sub

    '[LINK]url[/LINK]   '1
    '[IMG]url[/IMG]     '2
    '[EMB]url[/EMB]     '3
    '[FACE]num[/FACE]   '4


    'Dim sTmp    As String
    'sTmp = Text1.Text
    Dim sTag_Open
    Dim sTag_Close
    'sTag_Open = "[LINK]"
    'sTag_Close = "[/LINK]"

    Select Case iType
        Case 1
            sTag_Open = "[LINK]"
            sTag_Close = "[/LINK]"
        Case 2
            sTag_Open = "[IMG]"
            sTag_Close = "[/IMG]"
        Case 3
            sTag_Open = "[EMB]"
            sTag_Close = "[/EMB]"
        Case 4
            sTag_Open = "[FACE]"
            sTag_Close = "[/FACE]"
    End Select

    Dim iPos
    Dim iPosEnd

    Dim sPartL
    Dim sPartM
    Dim sPartR

    iPos = 1

    Do

        iPos = InStr(iPos, sTmp, sTag_Open, 1)

        If iPos > 0 Then
            iPosEnd = InStr(iPos, sTmp, sTag_Close, 1)

            If iPosEnd = 0 Then
                iPos = 0
            Else

                sPartL = Mid(sTmp, 1, iPos - 1)
                sPartM = Mid(sTmp, iPos + Len(sTag_Open), iPosEnd - iPos - Len(sTag_Open))
                sPartR = Mid(sTmp, iPosEnd + Len(sTag_Close))

                'Debug.Print "|" & sPartL & "|"
                'Debug.Print "|" & sPartM & "|"
                'Debug.Print "|" & sPartR & "|"

                Select Case iType
                    Case 1
                        sTmp = sPartL & _
                               "<a href='" & sPartM & "'>" & sPartM & "</a>" & _
                               sPartR

                    Case 2
                        sTmp = sPartL & _
                               "<a href='" & sPartM & "'>" & _
                               "<img src='" & sPartM & "' border='0'>" & _
                               "</a>" & _
                               sPartR

                    Case 3
                        sTmp = sPartL & _
                               "<a href='" & sPartM & "'>" & sPartM & "</a>" & _
                               "<p><embed src='" & sPartM & "' width='220' height='220'></p>" & _
                               sPartR

                    Case 4
                        sTmp = sPartL & _
                               "<img src='images/face/" & sPartM & ".gif' border='0'>" & _
                               sPartR

                End Select


                iPos = iPosEnd + Len(sTag_Close)

            End If
        End If

    Loop While iPos > 0

End Sub

%>