<% Sub getQuyu(ByVal pid) Dim rsQuyu,sqlQuyu 'sqlQuyu="select [id],[quyu],[loupan] from [t_quyu] where ([ji]=1 and [loupan]>=5) or [id]=1000288 order by [loupan] desc" sqlQuyu="select [id],[quyu],[loupan] from [t_region] where ([ji]=0 and isDel=0) order by [id] asc" Set rsQuyu=Server.CreateObject("Adodb.RecordSet") Response.write "" rsQuyu.close Set rsQuyu=Nothing End Sub Sub GetziduanS(byval pid,byval st,byval fieldname,byval value, byval holdName) Dim rs,i,val 'Value=cstr(Value) if(isnumeric(value)) then value=abs(value) else val=value value=-1 end if Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open "Select [id],[ziduan],[ps] From [t_ziduan] Where [pid]="&pid&" Order By [ps] Asc",conn,3,1,1 If Value=0 Then Select Case st Case 1 ' 下拉菜單 Response.Write "" Case 2 ' 勾選框 For i=1 to rs.RecordCount Response.Write ""&vbcrlf rs.MoveNext Next Case 3 ' 單選鈕 For i=1 to rs.RecordCount If i=1 Then Response.Write ""&vbcrlf Else Response.Write ""&vbcrlf End if rs.MoveNext Next Case -1 Response.Write "" Case -2 For i=1 to rs.RecordCount Response.Write ""&vbcrlf rs.MoveNext Next Case -3 For i=1 to rs.RecordCount If i=1 Then Response.Write ""&vbcrlf Else Response.Write ""&vbcrlf End if rs.MoveNext Next End Select Else Select Case st Case 1 Response.Write "" Case 2 For i=1 to rs.RecordCount If inlist(value,""""&rs(0)&"""") Then Response.Write ""&vbcrlf Else Response.Write ""&vbcrlf End if rs.MoveNext Next Case 3 For i=1 to rs.RecordCount If inlist(value,rs(0)) Then Response.Write ""&vbcrlf Else Response.Write ""&vbcrlf End if rs.MoveNext Next Case -1 Response.Write "" Case -2 For i=1 to rs.RecordCount If inlist(val,rs(2)) Then Response.Write ""&vbcrlf Else Response.Write ""&vbcrlf End if rs.MoveNext Next Case -3 For i=1 to rs.RecordCount If value=rs(2) Then Response.Write ""&vbcrlf Else Response.Write ""&vbcrlf End if rs.MoveNext Next End Select End If rs.Close Set rs=Nothing Response.Write "" End Sub %>

紹興樓市網注冊用戶協議


一、總則

1、協議起草中,啦啦啦~~~


平特乾坤卦荐