ybqh.asp

一个邮政 编码查询系统的代码

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim Adminpass
Adminpass="admin"
Dim MM_ybqh_STRING
'MM_ybqh_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=newybqh.mdb"
MM_ybqh_STRING ="driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("newybqh.mdb")
%>