'//===================================================
' 动网论坛验证码
' 作者 Dv.HxyMan
' 更新 2008-1-4
' 说明 前半部分为字库，后半部分为验证码生成程序。
' 可适当自行增加字库。默认为300个一级常用字。
'//===================================================
'----自动成生配置区_开始（请不要改动下面区块的内容，否则后台验证码设定程序将不能识别。）----
'<root><captcha_chartype_chinese>{$captcha_chartype_chinese}</captcha_chartype_chinese><captcha_chartype_english>{$captcha_chartype_english}</captcha_chartype_english><captcha_chartype_number>{$captcha_chartype_number}</captcha_chartype_number><captcha_size>{$captcha_size}</captcha_size><captcha_width_lbound>{$captcha_width_lbound}</captcha_width_lbound><captcha_width_ubound>{$captcha_width_ubound}</captcha_width_ubound><captcha_height_lbound>{$captcha_height_lbound}</captcha_height_lbound><captcha_height_ubound>{$captcha_height_ubound}</captcha_height_ubound><captcha_spacing_lbound>{$captcha_spacing_lbound}</captcha_spacing_lbound><captcha_spacing_ubound>{$captcha_spacing_ubound}</captcha_spacing_ubound><captcha_angle_lbound>{$captcha_angle_lbound}</captcha_angle_lbound><captcha_angle_ubound>{$captcha_angle_ubound}</captcha_angle_ubound><captcha_weight>{$captcha_weight}</captcha_weight><captcha_charshow>{$captcha_charshow}</captcha_charshow><captcha_charshow_stepbystep_r>{$captcha_charshow_stepbystep_r}</captcha_charshow_stepbystep_r><captcha_charshow_stepbystep_g>{$captcha_charshow_stepbystep_g}</captcha_charshow_stepbystep_g><captcha_charshow_stepbystep_b>{$captcha_charshow_stepbystep_b}</captcha_charshow_stepbystep_b><captcha_charshow_simple_r>{$captcha_charshow_simple_r}</captcha_charshow_simple_r><captcha_charshow_simple_g>{$captcha_charshow_simple_g}</captcha_charshow_simple_g><captcha_charshow_simple_b>{$captcha_charshow_simple_b}</captcha_charshow_simple_b><captcha_backshow>{$captcha_backshow}</captcha_backshow><captcha_backshow_stepbystep_r>{$captcha_backshow_stepbystep_r}</captcha_backshow_stepbystep_r><captcha_backshow_stepbystep_g>{$captcha_backshow_stepbystep_g}</captcha_backshow_stepbystep_g><captcha_backshow_stepbystep_b>{$captcha_backshow_stepbystep_b}</captcha_backshow_stepbystep_b><captcha_backshow_simple_r>{$captcha_backshow_simple_r}</captcha_backshow_simple_r><captcha_backshow_simple_g>{$captcha_backshow_simple_g}</captcha_backshow_simple_g><captcha_backshow_simple_b>{$captcha_backshow_simple_b}</captcha_backshow_simple_b><captcha_charshow_mix_percent>{$captcha_charshow_mix_percent}</captcha_charshow_mix_percent><captcha_backshow_mix_percent>{$captcha_backshow_mix_percent}</captcha_backshow_mix_percent><captcha_pic_width>{$captcha_pic_width}</captcha_pic_width><captcha_pic_height>{$captcha_pic_height}</captcha_pic_height></root>
'----自动成生配置区_结束--------------------------------------------------------
Option Explicit
Dim server_v1,server_v2,Chkpost
Chkpost=False
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True
If Not Chkpost Then Response.End
Dim f(350,4),u:u = 0
If 1={$captcha_chartype_number} Then
f(u,0)="0":f(u,1)="000000000000000011100010001001000100100010010001001000100100010001110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="1":f(u,1)="000000000000000011000010100000010000001000000100000010000001000011111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="2":f(u,1)="000000000000000111100000001000000100000100000100000100000100000011111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="3":f(u,1)="000000000000000111100000001000000100011100000001000000100000010011110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="4":f(u,1)="000000000000000000100000110000101000010100010010001111100000100000010000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="5":f(u,1)="000000000000000111100010000001000000111000000010000001000000100011100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="6":f(u,1)="000000000000000011110010000001000000101100011001001000100100010001110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="7":f(u,1)="000000000000000111110000001000001000001000001000000100000100000010000000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="8":f(u,1)="000000000000000011100010001001000100011100010011001000100100010001110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="9":f(u,1)="000000000000000011100010001001000100100110001101000000100000010011110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
End If
If 1={$captcha_chartype_english} Then
f(u,0)="A":f(u,1)="000000000000000001000001010000101000010100010001001111100100010100000100000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="B":f(u,1)="000000000000000111100010001001000100111100010010001000100100010011110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="C":f(u,1)="000000000000000001110001000001000000100000010000001000000010000000111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="D":f(u,1)="000000000000000111000010010001000100100010010001001000100100100011100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="E":f(u,1)="000000000000000111110010000001000000111100010000001000000100000011111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="F":f(u,1)="000000000000000111110010000001000000111100010000001000000100000010000000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="G":f(u,1)="000000000000000001110001000001000000100000010001001000100010010000111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="H":f(u,1)="000000000000000100010010001001000100111110010001001000100100010010001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="I":f(u,1)="000000000000000111110000100000010000001000000100000010000001000011111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="J":f(u,1)="000000000000000011100000010000001000000100000010000001000000100011100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="K":f(u,1)="000000000000000100010010010001010000110000011000001010000100100010001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="L":f(u,1)="000000000000000100000010000001000000100000010000001000000100000011111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="M":f(u,1)="000000000000001000010100001011001101100110101101010110101000010100001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="N":f(u,1)="000000000000000100010011001001100100101010010101001001100100110010001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="O":f(u,1)="000000000000000001000001010001000100100010010001001000100010100000100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="P":f(u,1)="000000000000000111100010001001000100100100011100001000000100000010000000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="Q":f(u,1)="000000000000000001000001010001000100100010010001001000100010100000110000000100000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="R":f(u,1)="000000000000000111100010001001000100100010011110001001000100010010001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="S":f(u,1)="000000000000000011110010000001000000011000000010000000100000010011110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="T":f(u,1)="000000000000001111111000100000010000001000000100000010000001000000100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="U":f(u,1)="000000000000000100010010001001000100100010010001001000100100010001110000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="V":f(u,1)="000000000000001000001010001001000100100010001010000101000010100000100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="W":f(u,1)="000000000000001000001100000110010011001001011011001101100100010010001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="X":f(u,1)="000000000000000100010001010000101000001000000100000101000100010010001000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="Y":f(u,1)="000000000000000100010010001000101000010100000100000010000001000000100000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
f(u,0)="Z":f(u,1)="000000000000000111110000001000001000001000000100000100000100000011111000000000000000":f(u,2)=7:f(u,3)=12:u=u+1
End If
If 1={$captcha_chartype_chinese} Then
f(u,0)="安":f(u,1)="0
ASP源码—龙宇电子档案管理系统.zip （2000个子文件） 
gbook.asp 129KB bbs.asp 88KB Function.asp 84KB CaptchaPreview.asp 68KB GetCode.asp 68KB Upload_Class.asp 34KB Function.asp 32KB CaptchaSet.asp 26KB GetCodebak.asp 22KB M_index.asp 20KB upload.asp 18KB edituser.asp 17KB admin_function.asp 16KB Sub.asp 15KB addad.asp 15KB edit_talk.asp 15KB check.asp 15KB Setmb.asp 14KB editad.asp 14KB money.asp 14KB config.asp 13KB dpo.asp 13KB list.asp 12KB md5.asp 11KB md5.asp 11KB head.asp 11KB ubbcode.asp 11KB shouye.asp 11KB md32.asp 10KB nopass.asp 10KB Admin.asp 10KB UserIn.asp 10KB photo.asp 10KB company.asp 10KB hyfabu.asp 10KB SendOrder.asp 9KB listuser.asp 9KB data.asp 9KB photovideo_type.asp 9KB photovideo_type.asp 9KB sysset.asp 9KB post_word.asp 8KB photovideo_ask.asp 8KB news_list_in.asp 8KB post_upload.asp 8KB search_photo.asp 8KB photovideo.asp 8KB addad_news.asp 8KB list_news.asp 8KB list_news.asp 8KB UploadFileManage.asp 8KB video.asp 8KB news_list.asp 8KB send_zn_message.asp 7KB zn_message.asp 7KB M_news_more.asp 7KB M_news.asp 7KB message_news.asp 7KB message.asp 7KB link.asp 7KB typeedit_three.asp 7KB Cls_Api.asp 7KB index.asp 7KB Template.asp 7KB message.asp 7KB photo_list.asp 6KB listad.asp 6KB typeedit_two.asp 6KB typeedit.asp 6KB video_list.asp 6KB banner.asp 6KB ds.asp 6KB banner.asp 6KB Report.asp 6KB user_left.asp 6KB banner_news.asp 6KB banner_news.asp 6KB about.asp 6KB search_class.asp 6KB Login.asp 6KB send_zn_message.asp 6KB show.asp 6KB CityJS00.asp 6KB head.asp 5KB GetPayHandle.asp 5KB main_index.asp 5KB yearedit_two.asp 5KB GetPayNotify.asp 5KB consume_list.asp 5KB showjs.asp 5KB newsjs.asp 5KB send_integration.asp 5KB yearedit.asp 5KB bm.asp 5KB news.asp 4KB upfileclass.asp 4KB News_type.asp 4KB info_data.asp 4KB del_pinglun.asp 4KB company_info.asp 4KB共 2000 条
- 1
- 2
- 3
- 4
- 5
- 6
- 20
资源评论
