📄 2005414120.htm
字号:
<TR>
<td width="624" bgcolor="#CCCCCC">当前位置:<a href=../../index.htm>首页</a>--><a href=../../artical/69/1.htm>程序设计</a>--><a href=../../artical/80/1.htm>ASP专区</a>-->显示文章内容</td><td width="176" bgcolor="#CCCCCC"><span id="liveclock"></span></td>
</TR></TBODY></TABLE>
<table width="800" height="406" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="166" height="200" valign="top" scope="col"><table width="100%" height="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="119" valign="top" scope="col"><table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="../../search.asp" method="post" name="searchLeftForm">
<tr bgcolor="CAF6F4" align="center">
<td height="25" bgcolor="#CC9900"><font color="#cc0000"><b>□
站 内 搜 索 □</b></font></td>
</tr>
<tr align="center">
<td style="line-height:150%" height=60> 请输入查询的字符串:<br>
<input name="search" type="text" class="button1" id="search" style="width:150">
<select name="seaguan" size="1" class="button1" id="seaguan" style="width:150">
<option value="">==> 综合查询 <==</option>
<option value="title">标题</option>
<option value="断剑">作者</option>
<option value="artical">内容</option>
<%call getNewsBoardTree()%>
</select>
</td>
</tr>
<tr align="center">
<td>
<input type="SUBMIT" name="Action" value=" 查 询 " class="button2">
<input type="RESET" name="Clear" value=" 重 写 " class="button2">
</td>
</tr>
<tr align="center">
<td height="10"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类最新文章</td>
</tr>
<tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200541450.htm target=_blank>asp常用数据库连接方法和技</a></td></tr><tr><td><a href=2005414428.htm target=_blank>使用简单的方法进行批量删除数</a></td></tr><tr><td><a href=2005414315.htm target=_blank>asp提高首页性能的一个技巧</a></td></tr><tr><td><a href=2005414230.htm target=_blank>ASP防注入之解决方案--加</a></td></tr><tr><td><a href=2005414158.htm target=_blank>使用ASP加密算法加密你的数</a></td></tr><tr><td><a href=2005414120.htm target=_blank>常用ASP自定义函数集</a></td></tr><tr><td><a href=2005414035.htm target=_blank>使用ASP生成HTML文件</a></td></tr><tr><td><a href=20054135956.htm target=_blank>在Flash中使用ASP技术</a></td></tr><tr><td><a href=200533011127.htm target=_blank>在asp中多个虚拟目录 se</a></td></tr>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类热门文章</td>
</tr>
<tr><td><a href=200532713295.htm target=_blank>断剑新闻系统商业版!</a></td></tr><tr><td><a href=200532115451.htm target=_blank>有关sql注入</a></td></tr><tr><td><a href=200532115410.htm target=_blank>ASP、JSP、PHP 三种</a></td></tr><tr><td><a href=200532014532.htm target=_blank>[原创]关于断剑新闻系统1.</a></td></tr><tr><td><a href=2005320135030.htm target=_blank>[本站原创]用VS.NET封</a></td></tr><tr><td><a href=200532115337.htm target=_blank>改进性能和样式的 24个 A</a></td></tr><tr><td><a href=200532818925.htm target=_blank>初学asp的朋友 asp20</a></td></tr><tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200532115122.htm target=_blank>用asp自动解析网页中的图片</a></td></tr><tr><td><a href=20053281846.htm target=_blank>DataGrid动态添加模板</a></td></tr>
</table></td>
</tr>
</table></td>
<td width="628" valign="top" scope="col"><table width="100%" border="0" align="center" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" bordercolorlight="#000000" style="word-break:break-all;">
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<p class="style7"><SPAN class=style1>常用ASP自定义函数集</SPAN></p>
<hr size="1" color="#0a778b" width="100%">
发布时间：2005-4-1 被阅览数：<SCRIPT src="../../counter.asp?id=490"></SCRIPT> 次 作者：断剑
</div>
</td>
</tr>
<tr>
<td width="100%"><p class="style6"><SPAN>文章来源: 视点设计 8see.net <BR>http://blog.8see.net/ <BR>rem ---表单提示函数 Being----------------------------- <BR>CODE Copy ... <BR>Function Check_submit(str,restr) <BR>if str="" then <BR>response.write "<script>" <BR>response.write "alert('"&restr&"');" <BR>response.write "history.go(-1)" <BR>response.write "</script>" <BR>response.end <BR>else <BR>Check_submit=str <BR>end if <BR>End Function <BR><BR><BR>CODE Copy ... <BR>Function Alert_submit(str) <BR>response.write "<script>" <BR>response.write "alert('"&str&"');" <BR>'response.write "location.reload();" <BR>response.write "</script>" <BR>End Function <BR><BR><BR>CODE Copy ... <BR>Function localhost_submit(str,urls) <BR>response.write "<script>" <BR>if str<>"" then <BR>response.write "alert('"&str&"');" <BR>end if <BR>response.write "location='"&urls&"';" <BR>response.write "</script>" <BR>End Function <BR><BR><BR>rem ---生成自定义位随机数 Being----------------------------- <BR>CODE Copy ... <BR>Function makerndid(byVal maxLen) <BR>Dim strNewPass <BR>Dim whatsNext, upper, lower, intCounter <BR>RANdomize <BR>For intCounter = 1 To maxLen <BR>whatsNext = int(2 * Rnd) <BR>If whatsNext = 0 Then <BR>upper = 80 <BR>lower = 70 <BR>Else <BR>upper = 48 <BR>lower = 39 <BR>End If <BR>strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + upper)) <BR>Next <BR>makerndid = strNewPass <BR>End Function <BR><BR><BR>rem ---生成四位随机数 Being----------------------------- <BR>CODE Copy ... <BR>Function get_rand() <BR>dim num1 <BR>dim rndnum <BR>Randomize <BR>Do While Len(rndnum)<4 <BR>num1=CStr(Chr((57-48)*rnd+48)) <BR>rndnum=rndnum&num1 <BR>loop <BR>get_rand=rndnum <BR>End Function <BR><BR><BR>rem ---判断数据是否整型 Being----------------------------- <BR>CODE Copy ... <BR>Function IsInteger(para) <BR>on error resume next <BR>dim str <BR>dim l,i <BR>if isNUll(para) then <BR>isInteger=false <BR>exit function <BR>end if <BR>str=cstr(para) <BR>if trim(str)="" then <BR>isInteger=false <BR>exit function <BR>end if <BR>l=len(str) <BR>for i=1 to l <BR>if mid(str,i,1)>"9" or mid(str,i,1)<"0" then <BR>isInteger=false <BR>exit function <BR>end if <BR>next <BR>isInteger=true <BR>if err.number<>0 then err.clear <BR>End Function <BR><BR><BR>rem ---数据库链接函数 Being----------------------------- <BR>CODE Copy ... <BR>Function OpenCONN <BR>Set conn = Server.CreateObject("ADODB.Connection") <BR>connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_login) <BR>conn.Open connstr <BR>End Function <BR><BR><BR>rem ---中文字符转Uncode代码函数 Being----------------------------- <BR>CODE Copy ... <BR>Function URLEncoding(vstrIn) <BR>strReturn = "" <BR>For i = 1 To Len(vstrIn) <BR>ThisChr = Mid(vStrIn,i,1) <BR>If Abs(Asc(ThisChr)) < &HFF Then <BR>strReturn = strReturn & ThisChr <BR>Else <BR>innerCode = Asc(ThisChr) <BR>If innerCode < 0 Then <BR>innerCode = innerCode + &H10000 <BR>End If <BR>Hight8 = (innerCode And &HFF00)\ &HFF <BR>Low8 = innerCode And &HFF <BR>strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) <BR>End If <BR>Next <BR>URLEncoding = strReturn <BR>End Function <BR><BR><BR>rem ---Html过滤函数 Being-----------------------------Function Htmlout(str) <BR>CODE Copy ... <BR>dim result <BR>dim l <BR>if isNULL(str) then <BR>Htmlout="" <BR>exit function <BR>end if <BR>l=len(str) <BR>result="" <BR>dim i <BR>for i = 1 to l <BR>select case mid(str,i,1) <BR>case "<" <BR>result=result+"&lt;" <BR>case ">" <BR>result=result+"&gt;" <BR>case chr(13) <BR>if session("admin_system")="" then <BR>result=result+"<br>" <BR>end if <BR>case chr(34) <BR>result=result+"&quot;" <BR>case "&" <BR>result=result+"&amp;" <BR>case chr(32) <BR>'result=result+"&nbsp;" <BR>if i+1<=l and i-1>0 then <BR>if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then <BR>result=result+"&nbsp;" <BR>else <BR>result=result+" " <BR>end if <BR>else <BR>result=result+"&nbsp;" <BR>end if <BR>case chr(9) <BR>result=result+" " <BR>case else <BR>result=result+mid(str,i,1) <BR>end select <BR>next <BR>Htmlout=result <BR>End Function <BR><BR><BR>rem ---textarea显示用--- <BR>CODE Copy ... <BR>function htmlencode1(fString) <BR>if fString<>"" and not isnull(fString) then <BR>fString = replace(fString, "&gt;", ">") <BR>fString = replace(fString, "&lt;", "<") <BR>fString = Replace(fString, "&nbsp;", chr(32)) <BR>fString = Replace(fString, "</p><p>", CHR(10) & CHR(10)) <BR>fString = Replace(fString, "<br>", CHR(10)) <BR>htmlencode1=fString <BR>else <BR>htmlencode1="" <BR>end if <BR>end function <BR><BR><BR>rem ---页面显示用--- <BR>CODE Copy ... <BR>function htmlencode2(fString) <BR>if fString<>"" and not isnull(fString) then <BR>fString = replace(fString, ">", "&gt;") <BR>fString = replace(fString, "<", "&lt;") <BR>fString = Replace(fString, chr(32), "&nbsp;") <BR>fString = Replace(fString, CHR(10) & CHR(10), "</p><p>") <BR>fString = Replace(fString, CHR(10), "<br>") <BR>htmlencode2=fString <BR>else <BR>htmlencode2="" <BR>end if <BR>end function <BR><BR><BR>rem ---取出指定字符串前后的字符串方法--- <BR>CODE Copy ... <BR>function GetStrs(str1,CharFlag,Dflag) <BR>dim tmpstr <BR>if Dflag=0 then'取左 <BR>pos1=instr(str1,charFlag) <BR>if pos1<=20 then <BR>tmpstr=left(str1,pos1-1) <BR>else <BR>tmpstr=mid(str1,pos1-20,20) <BR>end if <BR>else '取右 <BR>pos1=instr(str1,charFlag)+len(charFlag) <BR>if len(str1)-pos1<=20 then <BR>tmpstr=right(str1,len(str1)-pos1) <BR>else <BR>tmpstr=mid(str1,pos1+1,20) <BR>end if <BR>end if <BR>GetStrs=tmpstr <BR>end function <BR><BR><BR>rem ---取出文件名--- <BR>CODE Copy ... <BR>function getfilename(str) <BR>pos=instr(str,".") <BR>if str<>"" then <BR>str=mid(str,pos,len(str)) <BR>end if <BR>getfilename=str <BR>end function <BR><BR><BR>rem ---取到浏览器版本转换字符串--- <BR>CODE Copy ... <BR>function browser() <BR>dim text <BR>text = Request.ServerVariables("HTTP_USER_AGENT") <BR>if Instr(text,"MSIE 5.5")>0 then <BR>browser="IE 5.5" <BR>elseif Instr(text,"MSIE 6.0")>0 then <BR>browser="IE 6.0" <BR>elseif Instr(text,"MSIE 5.01")>0 then <BR>browser="IE 5.01" <BR>elseif Instr(text,"MSIE 5.0")>0 then <BR>browser="IE 5.00" <BR>elseif Instr(text,"MSIE 4.0")>0 then <BR>browser="IE 4.01" <BR>else <BR>browser="未知" <BR>end if <BR>end function <BR><BR><BR>rem ---取到系统脚本转换字符串--- <BR>CODE Copy ... <BR>function system(text) <BR>if Instr(text,"NT 5.1")>0 then <BR>system=system+"Windows XP" <BR>elseif Instr(text,"NT 5")>0 then <BR>system=system+"Windows 2000" <BR>elseif Instr(text,"NT 4")>0 then <BR>system=system+"Windows NT4" <BR>elseif Instr(text,"4.9")>0 then <BR>system=system+"Windows ME" <BR>elseif Instr(text,"98")>0 then <BR>system=system+"Windows 98" <BR>elseif Instr(text,"95")>0 then <BR>system=system+"Windows 95" <BR>else <BR>system=system+"未知" <BR>end if <BR>end function <BR><BR><BR>rem ---=删除文件--- <BR>CODE Copy ... <BR>function delfile(filepath) <BR>imangepath=trim(filepath) <BR>path=server.MapPath(imangepath) <BR>SET fs=server.CreateObject("Scripting.FileSystemObject") <BR>if FS.FileExists(path) then <BR>FS.DeleteFile(path) <BR>end if <BR>set fs=nothing <BR>end function <BR><BR><BR>rem ---得到真实的客户端IP--- <BR>CODE Copy ... <BR>Public Function GetClientIP() <BR>dim uIpAddr <BR>' 本函数参考webcn.Net/AspHouse 文献<取真实的客户IP> <BR>uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") <BR>If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR") <BR>GetClientIP = uIpAddr <BR>uIpAddr = "" <BR>End function <BR><BR><BR>数据库查询中的特殊字符的问题 <BR>在进行数据库的查询时，会经常遇到这样的情况： <BR> 例如想在一个用户数据库中查询他的用户名和他的密码，但恰好该用户使用的名字和密码中有特殊的字符，例如单引号，“|”号，双引号或者连字符“&”。 <BR> 例如他的名字是1"test，密码是A|&900 <BR> 这时当你执行以下的查询语句时，肯定会报错： <BR>SQL = "SELECT * FROM SecurityLevel WHERE UID="" & UserID & """ <BR>SQL = SQL & " AND PWD="" & Password & """ <BR> 因为你的SQL将会是这样： <BR>SELECT * FROM SecurityLevel WHERE UID="1"test" AND PWD="A|&900" <BR> 在SQL中，"|"为分割字段用的，显然会出错了。现在提供下面的几个函数 专门用来处理这些头疼的东西： <BR>Quoted from Unkown: <BR><BR>Function ReplaceStr (TextIn, ByVal SearchStr As String, _ <BR>ByVal Replacement As String, _ <BR>ByVal CompMode As Integer) <BR><BR><BR> Dim WorkText As String, Pointer As Integer <BR> If IsNull(TextIn) Then <BR> ReplaceStr = Null <BR> Else <BR> WorkText = TextIn <BR> Pointer = InStr(1, WorkText, SearchStr, CompMode) <BR> Do While Pointer > 0 <BR> WorkText = Left(WorkText, Pointer - 1) & Replacement & _ <BR> Mid(WorkText, Pointer + Len(SearchStr)) <BR> Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode) <BR> Loop <BR> ReplaceStr = WorkText <BR> End If <BR>End Function <BR><BR><BR>Function SQLFixup(TextIn) <BR> SQLFixup = ReplaceStr(TextIn, """, """", 0) <BR>End Function <BR>Function JetSQLFixup(TextIn) <BR> Dim Temp <BR> Temp = ReplaceStr(TextIn, """, """", 0) <BR> JetSQLFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0) <BR>End Function <BR><BR><BR>Function FindFirstFixup(TextIn) <BR> Dim Temp <BR> Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0) <BR> FindFirstFixup = ReplaceStr(Temp, "|", "" & chr(124) & "", 0) <BR>End Function <BR><BR>rem 借助RecordSet将二进制流转化成文本 <BR>Quoted from Unkown: <BR>Function BinaryToString(biData,Size) <BR>Const adLongVarChar = 201 <BR>Set RS = CreateObject("ADODB.Recordset") <BR>RS.Fields.Append "mBinary", adLongVarChar, Size <BR>RS.Open <BR>RS.AddNew <BR>RS("mBinary").AppendChunk(biData) <BR>RS.Update <BR>BinaryToString = RS("mBinary").Value <BR>RS.Close <BR>End Function <BR></SPAN></p>
<p><img src="http://www.koyee.com/images/dgg.gif" height="70" width="587"> </p></td>
</tr>
<tr>
<td width="628" bordercolor="0" class="font1"><p>
<hr size="1" color="#0a778b" width="100%">
<table><tr><td width="269" align="center">上一篇: <a href=../80/2005414035.htm title=使用ASP生成HTML文件>使用ASP生成HTML文件</a> </td>
<td width="285" align="center">下一篇: <a href=../90/200542823048.htm title=gew>gew</a></td>
</tr></table>
<hr size="1" color="#0a778b" width="100%">
<div align="right"> <a href="javascript:window.print()"><img src="../../images/printer.gif" width="16" height="14" border="0" align="absmiddle">打印本页</a> | <a href="javascript:window.close()"><img src="../../images/close.gif" width="14" height="14" border="0" align="absmiddle">关闭窗口</a> </div>
<p></p></td>
</tr>
</table></td>
</tr>
</table>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="800"
align=center background=../../images/webtop_bg.gif
border=0>
<TBODY>
<TR>
<TD><div align="center" class="style4">Copyright @ 2004-2008 http://www.koyee.com 可以网络在线版权所有<br>
公司地址:江西南昌 电话:13879173467 邮编:330029<br>
email:chenxueyan9999@163.com</div></TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -