<html>
<頭>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="作者" CONTENT="haiwa">
<title>Asp生成競賽</title>
</頭>
<正文>
<%
函數 haiwaocde(zfstr)
zf = zfstr
zf = 替換(zf,"0","_|_|__||_||_|")
zf = 替換(zf,"1","_||_|__|_|_||")
zf = 替換(zf,"2","_|_||__|_|_||")
zf = 替換(zf,"3","_||_||__|_|_|")
zf = 替換(zf,"4","_|_|__||_|_||")
zf = 替換(zf,"5","_||_|__||_|_|")
zf = 替換(zf,"7","_|_|__|_||_||")
zf = 替換(zf,"6","_|_||__||_|_|")
zf = 替換(zf,"8","_||_|__|_||_|")
zf = 替換(zf,"9","_|_||__|_||_|")
zf = 替換(zf,"a","_||_|_|__|_||")
zf = 替換(zf,"b","_|_||_|__|_||")
zf = 替換(zf,"c","_||_||_|__|_|")
zf = 替換(zf,"d","_|_|_||__|_||")
zf = 替換(zf,"e","_||_|_||__|_|")
zf = 替換(zf,"f","_|_||_||__|_|")
zf = 替換(zf,"g","_|_|_|__||_||")
zf = 替換(zf,"h","_||_|_|__||_|")
zf = 替換(zf,"i","_|_||_|__||_|")
zf = 替換(zf,"j","_|_|_||__||_|")
zf = 替換(zf,"k","_||_|_|_|__||")
zf = 替換(zf,"l","_|_||_|_|__||")
zf = 替換(zf,"m","_||_||_|_|__|")
zf = 替換(zf,"n","_|_|_||_|__||")
zf = 替換(zf,"o","_||_|_||_|__|")
zf = 替換(zf,"p","_|_||_||_|__|")
zf = 替換(zf,"r","_||_|_|_||__|")
zf = 替換(zf,"q","_|_|_|_||__||")
zf = 替換(zf,"s","_|_||_|_||__|")
zf = 替換(zf,"t","_|_|_||_||__|")
zf = 替換(zf,"u","_||__|_|_|_||")
zf = 替換(zf,"v","_|__||_|_|_||")
zf = 替換(zf,"w","_||__||_|_|_|")
zf = 替換(zf,"x","_|__|_||_|_||")
zf = 替換(zf,"y","_||__|_||_|_|")
zf = 替換(zf,"z","_|__||_||_|_|")
zf = 替換(zf,"-","_|__|_|_||_||")
zf = 替換(zf,"*","_|__|_||_||_|")
zf = 替換(zf,"/","_|__|__|_|__|")
zf = 替換(zf,"%","_|_|__|__|__|")
zf = 替換(zf,"+","_|__|_|__|__|")
zf = 替換(zf,".","_||__|_|_||_|")
haiwaocde = zf
結束函數
代碼_H = 52
代碼_W = 2
函數拖曳程式碼(ccode)
c = 代碼
c = 替換(c,"_","<span style='height:"&code_H&";寬度:"&code_w&";背景:#FFFFFF'></span>")
c = 替換(c,"|","<span style='height:"&code_H&";width:"&code_w&";background:#000000'></span>")
拖曳代碼 = c
結束函數
Function CheckExp(patrn,str)
設定 regEx=新正規表示式
regEx.Pattern=patrn
regEx.IgnoreCase=true
regEx.Global=True
CheckExp = regEx.test(str)
結束 功能
代碼 = request("c")
if code = "" then
程式碼 =“*51windows.net*”
別的
if Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890+-*/%$.]*$",code) then
代碼=“*”&代碼&“*”
別的
程式碼 =“*51windows.net*”
errstr = "<br><center style='color:red;'>含有非法字元</center>"
結束如果
結束如果
代碼 = 代碼
代碼 = lcase(代碼)
%>
<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對齊=“中心”>
<中心>
<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>
</表>
</中心>
</div>
<%=errstr%>
</正文>
</html>