变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當前位置: 首頁IT技術 → ASP生成ZT條型碼的函數(shù)代碼分享

ASP生成ZT條型碼的函數(shù)代碼分享

更多

 下面將跟大家一起分享的關于ASP生成ZT條型碼的實例代碼,希望能給大家?guī)韼椭騿l(fā)。

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="Author" CONTENT="haiwa">
<title>Asp生成條形碼</title>
</head>
<body>
<%

function haiwaocde(zfstr)
zf = zfstr
zf = replace(zf,"0","_|_|__||_||_|")
zf = replace(zf,"1","_||_|__|_|_||")
zf = replace(zf,"2","_|_||__|_|_||")
zf = replace(zf,"3","_||_||__|_|_|")
zf = replace(zf,"4","_|_|__||_|_||")
zf = replace(zf,"5","_||_|__||_|_|")
zf = replace(zf,"7","_|_|__|_||_||")
zf = replace(zf,"6","_|_||__||_|_|")
zf = replace(zf,"8","_||_|__|_||_|")
zf = replace(zf,"9","_|_||__|_||_|")
zf = replace(zf,"a","_||_|_|__|_||")
zf = replace(zf,"b","_|_||_|__|_||")
zf = replace(zf,"c","_||_||_|__|_|")
zf = replace(zf,"d","_|_|_||__|_||")
zf = replace(zf,"e","_||_|_||__|_|")
zf = replace(zf,"f","_|_||_||__|_|")
zf = replace(zf,"g","_|_|_|__||_||")
zf = replace(zf,"h","_||_|_|__||_|")
zf = replace(zf,"i","_|_||_|__||_|")
zf = replace(zf,"j","_|_|_||__||_|")
zf = replace(zf,"k","_||_|_|_|__||")
zf = replace(zf,"l","_|_||_|_|__||")
zf = replace(zf,"m","_||_||_|_|__|")
zf = replace(zf,"n","_|_|_||_|__||")
zf = replace(zf,"o","_||_|_||_|__|")
zf = replace(zf,"p","_|_||_||_|__|")
zf = replace(zf,"r","_||_|_|_||__|")
zf = replace(zf,"q","_|_|_|_||__||")
zf = replace(zf,"s","_|_||_|_||__|")
zf = replace(zf,"t","_|_|_||_||__|")
zf = replace(zf,"u","_||__|_|_|_||")
zf = replace(zf,"v","_|__||_|_|_||")
zf = replace(zf,"w","_||__||_|_|_|")
zf = replace(zf,"x","_|__|_||_|_||")
zf = replace(zf,"y","_||__|_||_|_|")
zf = replace(zf,"z","_|__||_||_|_|")
zf = replace(zf,"-","_|__|_|_||_||")
zf = replace(zf,"*","_|__|_||_||_|")
zf = replace(zf,"/","_|__|__|_|__|")
zf = replace(zf,"%","_|_|__|__|__|")
zf = replace(zf,"+","_|__|_|__|__|")
zf = replace(zf,".","_||__|_|_||_|")

haiwaocde = zf
end function
code_H = 52
code_W = 2
function dragcode(ccode)
c = ccode
c = replace(c,"_","<span style='height:"&code_H&";width:"&code_w&";background:#FFFFFF'></span>")
c = replace(c,"|","<span style='height:"&code_H&";width:"&code_w&";background:#000000'></span>")
dragcode = c
end function

Function CheckExp(patrn,str)
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=true
regEx.Global=True
CheckExp = regEx.test(str)
End Function

code = request("c")

if code = "" then
code = "*51windows.net*"
else
if Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",code) then
code = "*"&code&"*"
else
code = "*51windows.net*"
errstr = "<br><center style='color:red;'>含有非法字符 </center>"
end if
end if
ocode = code
code = lcase(code)
%>
<center><form name="form1" method="post">合法字符:ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ .<br><br><input name="c" type="text" value="<%=request("c")%>" size="25" maxlength="15"> <input type="submit" name="Submit" value="提交"></form><center>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" height="79">
<tr>
<td height="61" align="center"><%=dragcode(haiwaocde(code))%></td>
</tr>
<tr>
<td height="18" align="center" style="text-align:justify;text-justify:Distribute-all-lines;"><%=(ocode)%></td>
</tr>
</table>
</center>
</div>
<%=errstr%>
</body>
</html>

熱門評論
最新評論
發(fā)表評論 查看所有評論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數(shù): 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 国产香蕉一区二区在线观看 | 理论片免费欧美片 | 簧片免费在线观看 | 欧美黑人三级 | 午夜成年人视频 | 美女一级ba大片免色野外 | 国产成人经典三级在线观看 | 日韩欧美视频一区二区在线观看 | 91短视频在线 | 521a久久九九久久精品 | 欧美成免费 | 亚洲综合小说网 | 国产成人精品magnet | 久久婷婷五月综合色丁香 | 国产亚洲精品看片在线观看 | 日本最新在线 | 日本天堂网站 | 色免费在线观看 | 欧美综合区自拍亚洲综合图区 | 久草视频福利 | 99精品视频在线成人精彩视频 | 国产精品揄拍一区二区 | 久久大胆视频 | 亚洲综合偷自成人网第页色 | 久久精品伊人波多野结 | 18级成人毛片免费观看 | 午夜久久免费视频 | 亚洲国产欧美在线观看 | 国产精品莉莉欧美自在线线 | 欧美xxxxx色视频在线观看 | 成年人午夜在线 | 一级毛片无毒不卡直接观看 | 国产成人亚洲综合小说区 | 精品毛片视频 | 五月综合色婷婷影院在线观看 | 黄色大片在线播放 | 精品久久久久免费极品大片 | 日韩精品免费在线观看 | 日韩在线视频一区二区三区 | 欧美日韩精品一区二区三区四区 | 我要看一级黄色毛片 |