各位老铁们，大家好，今天由我来为大家分享asp源码分享文章网站，以及asp源码怎么运行的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！
<%@LANGUAGE=&34;CODEPAGE=&34;%>\n<%\n\n&39;账户注册：请通过该地址开通账户http://user.ihuyi.com/?DKimmu\n&39;（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。\n&39;（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；\n\nResponse.Charset=&34;\n\n&39;如果UTF8编码文字以%开头则进行转换\nifmid(UTFStr,Dig,1)=&34;then\n&39;GB2312转UTF8的asp代码将GB编码文字转换为UTF8编码文字\nFunctiontoUTF8(szInput)\nDimwch,uch,szRet\nDimx\nDimnAsc,nAsc2,nAsc3\n&34;&39;开始转换\nForx=1ToLen(szInput)\n&39;利用ascW函数返回每一个GB编码文字的Unicode字符代码\n&34;%&39;GB编码文字的Unicode字符代码在0800-FFFF之间采用三字节模版\nuch=&34;&Hex((nAsc\\2^12)Or&HE0)&&34;&_\nHex((nAsc\\2^6)And&H3FOr&H80)&&34;&_\nHex(nAscAnd&H3FOr&H80)\nszRet=szRet&uch\nEndIf\nEndIf\nNext\ntoUTF8=szRet\nEndFunction\n\n&39;二进制转换为十进制的asp代码\nfunctionc2to10(x)\nc2to10=0\nifx=&34;thenexitfunction\ni=0\nfori=0tolen(x)-1\nifmid(x,len(x)-i,1)=&34;thenc2to10=c2to10+2^(i)\nnext\nendfunction\n\n&34;&h&34;0&34;1&34;0&34;-&39;UTF8编码文字将转换为汉字\nfunctionConvChinese(x)\nA=split(mid(x,2),&34;)\ni=0\nj=0\nfori=0toubound(A)\nA(i)=c16to2(A(i))\nnext\nfori=0toubound(A)-1\nDigS=instr(A(i),&34;)\nUnicode=&34;\nforj=1toDigS-1\nifj=1then\nA(i)=right(A(i),len(A(i))-DigS)\nUnicode=Unicode&A(i)\nelse\ni=i+1\nA(i)=right(A(i),len(A(i))-2)\nUnicode=Unicode&A(i)\nendif\nnext\niflen(c2to16(Unicode))=4then\nConvChinese=ConvChinese&chrw(int(&34;&c2to16(Unicode)))\nelse\nConvChinese=ConvChinese&chr(int(&34;&c2to16(Unicode)))\nendif\nnext\nendfunction\n\n&)的asp代码将GB编码文字转换为unicode编码文字\nfunctionchinese2unicode(Str)\ndimi\ndimStr_one\ndimStr_unicode\nif(isnull(Str))then\nexitfunction\nendif\nfori=1tolen(Str)\nStr_one=Mid(Str,i,1)\nStr_unicode=Str_unicode&chr(38)\nStr_unicode=Str_unicode&chr(35)\nStr_unicode=Str_unicode&chr(120)\nStr_unicode=Str_unicode&Hex(ascw(Str_one))\nStr_unicode=Str_unicode&chr(59)\nnext\nchinese2unicode=Str_unicode\nendfunction\n\n&34;&34;%&34;&h&34;&h&34;&h&34;+&34;&39;判断是否为有效的十六进制代码\nfunctionisvalidhex(str)\ndimc\nisvalidhex=true\nstr=ucase(str)\niflen(str)<>3thenisvalidhex=false:exitfunction\nifleft(str,1)<>&34;thenisvalidhex=false:exitfunction\nc=mid(str,2,1)\nifnot(((c>=&34;)and(c<=&34;))or((c>=&34;)and(c<=&34;)))thenisvalidhex=false:exitfunction\nc=mid(str,3,1)\nifnot(((c>=&34;)and(c<=&34;))or((c>=&34;)and(c<=&34;)))thenisvalidhex=false:exitfunction\nendfunction\n\n&34;MSXML2.XMLHTTP&34;POST&34;Content-Type&34;application/x-www-form-urlencoded&34;adodb.stream&34;utf-8&39;函数返回随机整数。\nFunctiongen_key(digits)\t\n\t&34;0&34;1&34;2&34;3&34;4&34;5&34;6&34;7&34;8&34;9&39;Initiaterandomizemethodfordefaultseeding\n\trandomize\n\t\n\t&39;thefunctionforthelengthofthekey.\n\tdowhilelen(output)<digits\n\tnum=char_array(Int((9-0+1)*Rnd+0))\n\toutput=output+num\n\tloop\n\t\n\t&34;mobile&39;手机号码\n\n\nifmobile=&34;then\nresponse.Write(&34;)\nelse\n\t\t\n\t\tifrequest.Form(&34;)=&34;orSession(&34;)<>request.Form(&34;)then\n\t\t\t&34;请求超时，请刷新页面后重试&34;mobile_code&39;Response.Cookies(&34;)=mobile_code\n\t\t\tSession(&34;)=mobile\n\t\t\t&34;mobile&34;http://106.ihuyi.com/webservice/sms.php?method=Submit&34;您的验证码是：&34;。请不要把验证码泄露给其他人。&34;account=用户名&password=密码&mobile=&34;&content=&39;查看用户名登录用户中心->验证码通知短信>产品总览->API接口信息->APIID\n\t\t\t&39;Response.writetoUTF8(&34;)\n\t\t\t&39;ifinstr(tempstr,&34;)>0Then\n\t\t\t\t&34;true&39;else\n\t\t\t\t&34;error&39;endif\n\t\n\t\t\tDimlen1,len2\n\t\t\tlen1=instr(1,tempstr,&34;,1)-1\n\t\t\tlen2=instr(1,tempstr,&34;,1)\n\t\t\t&39;response.Write(code)\n\t\n\t\t\tDimlen3,len4\n\t\t\tlen3=instr(1,tempstr,&34;,1)-1\n\t\t\tlen4=instr(1,tempstr,&34;,1)\n\t\t\t'response.Write(len2)\n\t\t\tmsg=left(tempstr,len3)\n\t\t\tmsg=right(msg,(len3-len4-4))\n\t\t\tresponse.Write(msg)\n\t\t\t\n\t\tendif\n\nendIf\n%>
文章分享结束，asp源码分享文章网站和asp源码怎么运行的答案你都知道了吗？欢迎再次光临本站哦！