{"id":49,"date":"2007-08-21T16:53:03","date_gmt":"2007-08-21T08:53:03","guid":{"rendered":"http:\/\/www.cnmiss.cn\/?p=48"},"modified":"2010-12-02T06:31:46","modified_gmt":"2010-12-02T06:31:46","slug":"%e8%ba%ab%e4%bb%bd%e8%af%81%e6%9f%a5%e8%af%a2%e7%9a%84asp%e7%89%88ajax%e6%9c%8d%e5%8a%a1%e5%99%a8%e7%ab%af%ef%bc%8c%e4%b8%8d%e9%9c%80%e8%a6%81%e6%95%b0%e6%8d%ae%e5%ba%93%e6%94%af%e6%8c%81","status":"publish","type":"post","link":"https:\/\/www.cnmiss.cn\/?p=49","title":{"rendered":"\u8eab\u4efd\u8bc1\u67e5\u8be2\u7684ASP\u7248Ajax\u670d\u52a1\u5668\u7aef\uff0c\u4e0d\u9700\u8981\u6570\u636e\u5e93\u652f\u6301"},"content":{"rendered":"

<%
Select Case Request("action")
Case "send"
Call RePinYin()
Case "card"
Call GetCard()
Case "cardarea"
Call GetCardCara()
Case else
Call Showmsg()
End Select<\/p>\n

Sub GetCardCara()
Dim AreaArr1,AreaArr2,AreaArr3,Area1,Area2,Area3
Dim CiS,LastCode,perIDNew,perIDSrc,ReStr,ajax,i,CiY,TempStr
perIDSrc = Trim(Request("card"))
IF len(perIDSrc) <> 15 and len(perIDSrc) <> 18 then
ReStr = "\u8eab\u4efd\u8bc1\u53f7\u7801\u5fc5\u987b\u4e3a15\u4f4d\u621618\u4f4d\u6570\u5b57$$$1$$$1$$$1"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
Exit Sub
End If
TempStr = perIDSrc
For i = 1 to 10
TempStr = Replace(TempStr,(i-1) & "","")
Next
TempStr = Replace(TempStr,"X","")
TempStr = Replace(TempStr,"x","")
If TempStr<>"" then
ReStr = "\u8eab\u4efd\u8bc1\u53f7\u7801\u5fc5\u987b\u4e3a15\u4f4d\u621618\u4f4d\u6570\u5b57$$$1$$$1$$$1"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
Exit Sub
End If
ReStr = ""
If Len(perIDSrc) = 15 Then
If Right(perIDSrc,1) Mod 2 = 0 then
ReStr = ReStr & "\u5973" & "$$$"' & Area3 & "$$$1"
Else
ReStr = ReStr & "\u7537" & "$$$"
End If
ReStr = ReStr & "19" & Mid(perIDSrc,7,2) & "\u5e74" & Mid(perIDSrc,9,2) & "\u6708" & Mid(perIDSrc,11,2) & "\u65e5" & "$$$"
Else
If Mid(perIDSrc,17,1) Mod 2 = 0 then
ReStr = ReStr & "\u5973" & "$$$"
Else
ReStr = ReStr & "\u7537" & "$$$"
End If
ReStr = ReStr & Mid(perIDSrc,7,4) & "\u5e74" & Mid(perIDSrc,11,2) & "\u6708" & Mid(perIDSrc,13,2) & "\u65e5" & "$$$"
End If
AreaArr1 = Split("\u5317\u4eac\u5e02|110000,\u5929\u6d25\u5e02|120000,\u6cb3\u5317\u7701|130000,\u5c71\u897f\u7701|140000,\u5185\u8499\u53e4\u81ea\u6cbb\u533a|150000,\u8fbd\u5b81\u7701|210000,\u5409\u6797\u7701|220000,\u9ed1\u9f99\u6c5f\u7701|230000,\u4e0a\u6d77\u5e02|310000,\u6c5f\u82cf\u7701|320000,\u6d59\u6c5f\u7701|330000,\u5b89\u5fbd\u7701|340000,\u798f\u5efa\u7701|350000,\u6c5f\u897f\u7701|360000,\u5c71\u4e1c\u7701|370000,\u6cb3\u5357\u7701|410000,\u6e56\u5317\u7701|420000,\u6e56\u5357\u7701|430000,\u5e7f\u4e1c\u7701|440000,\u5e7f\u897f\u58ee\u65cf\u81ea\u6cbb\u533a|450000,\u6d77\u5357\u7701|460000,\u91cd\u5e86\u5e02|500000,\u56db\u5ddd\u7701|510000,\u8d35\u5dde\u7701|520000,\u4e91\u5357\u7701|530000,\u897f\u85cf\u81ea\u6cbb\u533a|540000,\u9655\u897f\u7701|610000,\u7518\u8083\u7701|620000,\u9752\u6d77\u7701|630000,\u5b81\u590f\u56de\u65cf\u81ea\u6cbb\u533a|640000,\u65b0\u7586\u7ef4\u543e\u5c14\u81ea\u6cbb\u533a|650000,\u53f0\u6e7e\u7701(886)|710000,\u9999\u6e2f\u7279\u522b\u884c\u653f\u533a(852)|810000,\u6fb3\u95e8\u7279\u522b\u884c\u653f\u533a(853)|820000",",")
TempStr = Left(perIDSrc,3)
for i=0 to UBOUND(AreaArr1)
If Instr(AreaArr1(i),"|" & TempStr)>0 then
Area1 = Left(AreaArr1(i),Len(AreaArr1(i))-7)
Exit For
End If
Next
Set AreaArr1 = Nothing
Select Case Left(perIDSrc,2)
Case "11"
AreaArr2 = Split("\u5e02\u8f96\u533a|110100,\u5317\u4eac\u53bf|110200",",")
Select Case Mid(perIDSrc,3,2)
Case "01"
AreaArr3 = Split("\u4e1c\u57ce\u533a|110101,\u897f\u57ce\u533a|110102,\u5d07\u6587\u533a|110103,\u5ba3\u6b66\u533a|110104,\u671d\u9633\u533a|110105,\u4e30\u53f0\u533a|110106,\u77f3\u666f\u5c71\u533a|110107,\u6d77\u6dc0\u533a|110108,\u95e8\u5934\u6c9f\u533a|110109,\u623f\u5c71\u533a|110111,\u901a\u5dde\u533a|110112,\u987a\u4e49\u533a|110113,\u660c\u5e73\u533a|110114,\u5927\u5174\u533a|110115,\u5e73\u8c37\u533a|110117,\u6000\u67d4\u533a|110116",",")
Case "02"
AreaArr3 = Split("\u660c\u5e73\u53bf|110221,\u5927\u5174\u53bf|110224,\u5e73\u8c37\u53bf|110226,\u6000\u67d4\u53bf|110227,\u5bc6\u4e91\u53bf|110228,\u5ef6\u5e86\u53bf|110229",",")
End Select
\u2026\u2026
\u2026\u2026
\u4e2d\u95f4\u7684\u7701\u7565\u4e86\uff0c\u81ea\u5df1\u4e0b\u9644\u4ef6\u770b\u5427\u3002
\u2026\u2026
\u2026\u2026
End Select
TempStr = Left(perIDSrc,4)
if not IsArray(AreaArr2) then AreaArr2 = Split(",",",")
for i=0 to UBOUND(AreaArr2)
If Instr(AreaArr2(i),"|" & TempStr)>0 then
Area2 = Left(AreaArr2(i),Len(AreaArr2(i))-7)
Exit For
End If
Next
Set AreaArr2 = Nothing
if not IsArray(AreaArr3) then AreaArr3 = Split(",",",")
TempStr = Left(perIDSrc,6)
for i=0 to UBOUND(AreaArr3)
If Instr(AreaArr3(i),"|" & TempStr)>0 then
Area3 = Left(AreaArr3(i),Len(AreaArr3(i))-7)
Exit For
End If
Next
Set AreaArr3 = Nothing
ReStr = ReStr & Area1 & Area2 & Area3 & "$$$"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
End Sub<\/p>\n

Sub GetCard()
Dim CiS,LastCode,perIDNew,perIDSrc,ReStr,ajax,i,CiY,TempStr
perIDSrc = Trim(Request("card"))
IF len(perIDSrc) <> 15 then
ReStr = "\u539f\u8eab\u4efd\u8bc1\u53f7\u7801\u5fc5\u987b\u4e3a15\u4f4d\u6570\u5b57$$$1"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
Exit Sub
End If
TempStr = perIDSrc
For i = 1 to 10
TempStr = Replace(TempStr,(i-1) & "","")
Next
If TempStr<>"" then
ReStr = "\u539f\u8eab\u4efd\u8bc1\u53f7\u7801\u5fc5\u987b\u4e3a15\u4f4d\u6570\u5b57$$$1"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
Exit Sub
End If
IF len(perIDSrc) <> 15 then
ReStr = "\u539f\u8eab\u4efd\u8bc1\u53f7\u7801\u5fc5\u987b\u4e3a15\u4f4d$$$1"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
Exit Sub
End If
Dim CiW
CiS = 0
'\/\/\u52a0\u6743\u56e0\u5b50\u5e38\u6570
CiW=Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",")
'\/\/\u6821\u9a8c\u7801\u5e38\u6570
LastCode="10X98765432"
'\/\/\u65b0\u8eab\u4efd\u8bc1\u53f7
perIDNew=Left(perIDSrc,6)
'\/\/\u586b\u5728\u7b2c6\u4f4d\u53ca\u7b2c7\u4f4d\u4e0a\u586b\u4e0a\u20181\u2019\uff0c\u20189\u2019\u4e24\u4e2a\u6570\u5b57
perIDNew = perIDNew & "19"
perIDNew = perIDNew & mid(perIDSrc,7,10)
'\/\/\u8fdb\u884c\u52a0\u6743\u6c42\u548c
for i=0 to UBOUND(CiW)
CiS = CiS + Cint(mid(perIDNew,i+1,1)) * Cint(CiW(i))
Next
'\/\/\u53d6\u6a21\u8fd0\u7b97\uff0c\u5f97\u5230\u6a21\u503c
CiY = CiS mod 11
'\/\/\u4eceLastCode\u4e2d\u53d6\u5f97\u4ee5\u6a21\u4e3a\u7d22\u5f15\u53f7\u7684\u503c\uff0c\u52a0\u5230\u8eab\u4efd\u8bc1\u7684\u6700\u540e\u4e00\u4f4d\uff0c\u5373\u4e3a\u65b0\u8eab\u4efd\u8bc1\u53f7\u3002
perIDNew = perIDNew & Mid(LastCode,CiY+1,1)
ReStr = perIDNew & "$$$1"
set ajax=new AjaxXml
ajax.re(Split(ReStr,"$$$"))
End Sub<\/p>\n

Sub Showmsg()
set ajax=new AjaxXml
Dim ReStr
ReStr = "1$$$1"
ajax.re(Split(ReStr,"$$$"))
End Sub<\/p>\n

Class AjaxXml
Private m_contentType,m_encoding,m_xml<\/p>\n

Private Sub Class_Initialize()
m_contentType = "text\/xml"
m_encoding = "gb2312"
m_xml=true
End sub<\/p>\n

Public sub re(result)
Response.contentType = m_contentType
Response.Expires=0
Response.Clear
Response.Write serialize(result)
End Sub<\/p>\n

Private function serialize(result)
Dim restr,i
if m_xml then
restr = "<?xml version=""1.0"" encodin<\/p>\n

g="""&m_encoding&"""?>"
restr = restr+"<Response>"
if IsArray(result) then
For i=0 to UBound(result)
restr = restr + "<item><![CDATA["&result(i)&"]]><\/item>"
next
else
restr = restr + result
end If
restr = restr + "<\/Response>"
else
restr = result
end if
serialize = restr
end function
End Class
%><\/p><\/blockquote>\n

\u70b9\u51fb\u4e0b\u8f7d\u9644\u4ef6<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

<%Select Case Request("action&qu … \u7ee7\u7eed\u9605\u8bfb →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[11,13],"class_list":["post-49","post","type-post","status-publish","format-standard","hentry","category-xxbj","tag-ajax","tag-asp"],"_links":{"self":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/49","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=49"}],"version-history":[{"count":0,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/49\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=49"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=49"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=49"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}