| 项目搜索 |
| |
|
代码片段库:
查看代码片段
浏览
| 提交新的代码片段
| 创建代码包
验证HTTP连接
|
类型:
Sample Code (HOWTO) |
类别:
HTML Manipulation
|
许可证:
GNU General Public License |
语言:
Other Language
|
描述:
验证HTTP连接
|
该代码片段的版本系列:
片段ID |
下载版本 |
提交时间 |
提交人 |
删除 |
4737 | 1.0 | 2003-10-19 22:09 | cbd001 | |
点击"下载版本"来下载该代码片段.
最新版本的代码片段: 1.0
<%
'标记字符
' <%
' text = "感谢该站点 {http://www.Guyee.com}"
' new_text = Format_text(text)
' %>
FUNCTION Format_text(tekst)
Tekst_temp = tekst
Tekst_temp = Replace(Tekst_temp,"#","<BR>")
Tekst_temp = Replace(Tekst_temp,Chr(13),"<BR>")
Tekst_temp = Replace(Tekst_temp,"[","<B>")
Tekst_temp = Replace(Tekst_temp,"]","</B>")
'Link
i = 1
WHILE NOT InStr(i,Tekst_temp,"{") = 0
start = CInt( InStr(1,Tekst_temp,"{") )
i = start
slutt = CInt( InStr(start,Tekst_temp,"}") )
hole = mid(Tekst_temp,(start),(slutt-start+1))
IF InStr(hole,"$") THEN
skille = CInt( InStr(start,Tekst_temp,"$") )
navn = mid(Tekst_temp,(start+1),(skille-start-1))
link = mid(Tekst_temp,(skille+1),(slutt-skille-1))
IF Left(link,4) = "www." THEN
link = "http://" & link
END IF 'www
IF NOT InStr(link,"@") = 0 THEN
link = "mailto:" & link
END IF '@
out_var = "<A HREF=""" & link & """>" & navn & "</A>"
Tekst_temp = Replace(Tekst_temp,hole,out_var,1,1)
ELSE
link = mid(Tekst_temp,(start+1),(slutt-start-1))
IF Left(link,4) = "www." THEN
link = "http://" & link
END IF 'www
IF NOT InStr(link,"@") = 0 THEN
link = "mailto:" & link
END IF '@
link = "<A HREF=""" & link & """>"
Tekst_temp = Replace(Tekst_temp,"{",link,1,1)
Tekst_temp = Replace(Tekst_temp,"}","</A>",1,1)
END IF
WEND
Format_text = Tekst_temp
END FUNCTION
'函数完成
'以下是示例代码
'<%
'IF len(Request.Form("text"))=0 THEN
'%>
'<HTML>
'<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#FF0000">
'<CENTER>请输入文字</CENTER>
'<BR>
'<BR>
'<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
'<CENTER><TEXTAREA NAME="text" COLS=50 ROWS=8>Sample:<%=chr(13)%>[Fat text]<%=chr(13)%>A link: {http://www.Guyee.com}</TEXTAREA></CENTER>
'<CENTER><INPUT TYPE="SUBMIT" VALUE=" View "></CENTER>
'</FORM>
'<BR>
'<CENTER>
'<TABLE BORDER=1>
'<TR>
'<TD COLSPAN=2><FONT SIZE=2><CENTER><B>EZ syntax:<B></CENTER></FONT></TD>
'<TR>
'<TD><FONT SIZE=2><B>EZ code:</FONT></B></TD><TD><FONT SIZE=2><B>Result:</B></FONT></TD>
'<TR>
'<TD><FONT SIZE=2>#</FONT></TD><TD><FONT SIZE=2><BR></FONT></TD>
'<TR>
'<TD><FONT SIZE=2>"carriage return"</FONT></TD><TD><FONT SIZE=2><BR></FONT></TD>
'<TR>
'<TD><FONT SIZE=2>[fat text]</FONT></TD><TD><FONT SIZE=2><B>fat text</B></FONT></TD>
'<TR>
'<TD><FONT SIZE=2>{http://www.Guyee.com}</FONT></TD><TD><FONT SIZE=2><A HREF="http://www.Guyee.com">http://www.Guyee.com</A></FONT></TD>
'<TR>
'<TD><FONT SIZE=2>{[email protected]}</FONT></TD><TD><FONT SIZE=2><A HREF="mailto:[email protected]">[email protected]</A></FONT></TD>
'<TR>
'<TD><FONT SIZE=2>{Guyee.com$http://www.Guyee.com}</FONT></TD><TD><FONT SIZE=2><A HREF="http://www.Guyee.com">Guyee.com</A></FONT></TD>
'</TABLE></CENTER>
'</BODY>
'</HTML>
'<%
'ELSE
'FUNCTION Format_text(tekst)
'Tekst_temp = tekst
'Tekst_temp = Replace(Tekst_temp,"#","<BR>")
'Tekst_temp = Replace(Tekst_temp,Chr(13),"<BR>")
'Tekst_temp = Replace(Tekst_temp,"[","<B>")
'Tekst_temp = Replace(Tekst_temp,"]","</B>")
'i = 1
'WHILE NOT InStr(i,Tekst_temp,"{") = 0
'start = CInt( InStr(1,Tekst_temp,"{") )
'i = start
'slutt = CInt( InStr(start,Tekst_temp,"}") )
'hole = mid(Tekst_temp,(start),(slutt-start+1))
'IF InStr(hole,"$") THEN
' skille = CInt( InStr(start,Tekst_temp,"$") )
' navn = mid(Tekst_temp,(start+1),(skille-start-1))
' link = mid(Tekst_temp,(skille+1),(slutt-skille-1))
' IF Left(link,4) = "www." THEN
' link = "http://" & link
' END IF 'www
' IF NOT InStr(link,"@") = 0 THEN
' link = "mailto:" & link
' END IF '@
' out_var = "<A HREF=""" & link & """>" & navn & "</A>"
' Tekst_temp = Replace(Tekst_temp,hole,out_var,1,1)
'ELSE
' link = mid(Tekst_temp,(start+1),(slutt-start-1))
' IF Left(link,4) = "www." THEN
' link = "http://" & link
' END IF 'www
' IF NOT InStr(link,"@") = 0 THEN
' link = "mailto:" & link
' END IF '@
' link = "<A HREF=""" & link & """>"
' Tekst_temp = Replace(Tekst_temp,"{",link,1,1)
' Tekst_temp = Replace(Tekst_temp,"}","</A>",1,1)
'END IF
'WEND
'Format_text = Tekst_temp
'END FUNCTION
'%>
'<HTML>
'<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#FF0000">
'<%=Format_text(Request.Form("text"))%>
'<BR><BR>
'<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
'<INPUT TYPE="SUBMIT" VALUE=" Try again ">
'</FORM>
'</BODY>
'</HTML>
'<%END IF%>
%>
如果您修改了一个代码片段并且觉得很应该让别人共享,您可以把这作为这个代码片段的最新版本提交上来. |
|