1.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim ZC(1000,2)
	Dim i
	
	Set ObjDB	= Server.CreateObject("ADODB.Connection")
	OpenDB objDB

	StrSQL = "Select ID,Province From t_OA_Public_Zipcode_Province "
	Set ObjRS = ObjDB.Execute(StrSQL)
	
	StrSQL = ""	
	While Not ObjRS.Eof
		StrSQL = StrSQL & "Update t_OA_Public_Zipcode Set ProvinceID = " & ObjRS("ID") & " Where Province ='" & ObjRS("Province") & "';"
		ObjRS.MoveNext
	Wend 
	Response.Write StrSQL
	ObjDB.Execute StrSQL
%>