【www.bbyears.com--php常用代码】
" 打开数据库Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "asp" , Application("ConASP_RuntimeUserName") , Application("ConASP_RuntimePassword")
Set RecBBS = Server.CreateObject("ADODB.RecordSet")
Set RecReply = Server.CreateObject("ADODB.RecordSet")
Set RecMember = Server.CreateObject("ADODB.RecordSet")
%>
<%
Job = Request("Job")
If Job = "" Then Job = "List"
"==================================================================================================