27 <tr>

28 <%

29 Set rs = Server.CreateObject("adodb.recordset")

30 sql = "select * from pf_recruitment where pf_recruitment_area='�ܲ�' order by id desc"

31 rs.Open sql,conn,1,1

32 if rs.recordcount=0 then

33 %>

34 <td height="30" colspan="2" class="STYLE15">�ܲ�</td>

73 <tr>

74 <%

75 Set rs = Server.CreateObject("adodb.recordset")

76 sql = "select * from pf_recruitment where pf_recruitment_area='�������У' order by id desc"

77 rs.Open sql,conn,1,1

51 intCounter = 0

52

53 Set oRs = Server.CreateObject("ADODB.Recordset")

54 'Generate the chart element string

55 strXML = "<chart palette='2' caption='Factory " & FactoryId &" Output ' subcaption='(In Units)' xAxisName='Date' showValues='1' labelStep='2' >"

4 <!--#include file="../Connections/cnnASP02.asp" -->

5 <%

6 var rsResponseHistory = Server.CreateObject("ADODB.Recordset");

7 rsResponseHistory.ActiveConnection = MM_cnnASP02_STRING;

8 rsResponseHistory.Source = "{call dbo.cp_pjt_responses("+Request.QueryString("intIssue_id")+",'',0,0,0,0,'',0,0,0,'',0,'',0,'Q',0)}";

24 <%

25 sql = "select * from link Order by id desc"

26 Set rs=Server.Createobject("ADODB.RECORDSET")

27 rs.Open sql, conn, 1, 1

28 if not rs.eof then

61 Call FC.setChartParams(strParam)

62

63 ' Fetch all factory records creating SQL query

64 dim strQuery

65 strQuery = "select a.FactoryID, b.FactoryName, sum(a.Quantity) as total from Factory_output a, Factory_Master b where a.FactoryId=b.FactoryId group by a.FactoryId,b.FactoryName"

66

67 Dim oRs

68 'Create the recordset to retrieve data

69 Set oRs = Server.CreateObject("ADODB.Recordset")

4 page_title = "[Service Centres] Fusion Excel Content Management System"

5

6 Dim RecordSet, sql

7 %>

8 <!--#include file="header.asp" -->

50 call SetConnection(GetSCDbPath())

51 call OpenDatabase()

52 call CreateRecordSet(RecordSet, sql)

53 %>

54 <form method="post" id="id_service_centres_list" action="service_centres.asp?delete=1">

70 <td><%= RecordSet("service_centre_id") %></td>

71 <td><a href="service_centre-edit.asp?action=edit&amp;id=<%= RecordSet("service_centre_id") %>"><%= RecordSet("country_name") %></a></td>

72 <% if RecordSet("publish") then %>

83 </table>

84 </form>

85 <% call CloseRecordSet(RecordSet) %>

86 <!--#include file="footer.asp" -->

21 'Call infoback("�������ֲ���Ϊ�գ����ұ���Ϊ���֣�")

22 'End If

23 Set rs = server.CreateObject("adodb.recordset")

24 sql = "select * from pf_hd where id = "&request.QueryString("id")&""

25 rs.Open sql, conn, 1, 3

37 Call close_rs

38

39 set rsop = server.CreateObject("adodb.recordset")

40 rsop.open "select * from pf_oprate ",conn,1,3

41 rsop.addnew

69 <table>

70 <%

71 Set rs = server.CreateObject("adodb.recordset")

72 sql = "select * from pf_hd where id = "&request.QueryString("id")&""

73 rs.Open sql, conn, 1, 1

16

17 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

18 set rs = server.CreateObject("ADODB.Recordset")

19

20 mySmartUpload.Upload

6 End If

7

8 Set rsApplicant = Server.CreateObject("ADODB.Recordset")

9

10 ' If there is a request to delete, delete the record.

33 <%

34 call conndata

35 set rs=server.createobject("adodb.recordset")

36 sql="select * from 74hu_list"

37 rs.open sql,conn,1,1

14 Call infoback("�������ֲ���Ϊ�գ����ұ���Ϊ���֣�")

15 End If

16 Set rs = server.CreateObject("adodb.recordset")

17 sql = "select * from pf_game"

18 rs.Open sql, conn, 1, 3

29 Call close_rs

30

31 set rsop = server.CreateObject("adodb.recordset")

32 rsop.open "select * from pf_oprate",conn,1,3

33 rsop.addnew

66 </tr>

67 <%

68 Set rs = server.CreateObject("adodb.recordset")

69 sql = "select * from pf_game where pf_uploadfile <> 'text' order by pf_link_order asc"

70 rs.Open sql, conn, 1, 1

28 end if

29 sql = "select * from news where type_id="&Request("type_id")&" order by id desc"

30 Set rs=Server.Createobject("ADODB.RECORDSET")

31 rs.Open sql, conn, 1, 1

32 if not rs.eof then

62 If Recommend<>0 Then Param=Param & " and rRecommend=1"

63 If KS.S("key")<>"" Then Param=Param & " and TeamName like '%" & KS.R(KS.S("key")) &"%'"

64 Dim RSObj:Set RSObj=Server.CreateObject("ADODB.RECORDSET")

65 RSObj.Open "select a.*,b.classname from KS_team a inner join ks_teamclass b on a.classid=b.classid " & Param & " order by id desc",Conn,1,1

66 If RSObj.EOF and RSObj.Bof Then

67 str = str & "没有用户创建圈子！<br/>"

68 Else

69 TotalPut = RSObj.RecordCount

70 If CurrentPage < 1 Then CurrentPage = 1

71 If (CurrentPage - 1) * MaxPerPage > TotalPut Then

22 'End If

23

24 ' If there is a request to update the new record, update the new record.

25 If Request.Form("Submit") = "Update Calendar" Then

26 rsNodes.Open "Calendar_Nodes", cnnMain,3,3

35 End If

36

37 ' If there is a request to update an existing record, update the existing record.

38 If Request.Form("Submit") = "Update Existing Calendar" Then

39 rsNodes.Open "SELECT * FROM Calendar_Nodes WHERE Node_ID =" & Request.Form("Node_ID"), cnnMain,3,3

62 set rsNodes = Server.CreateObject("ADODB.Recordset")

63 ' If there is a request to add new record, add new record.

64 If Request.Form("Submit") = "Add New Calendar" Then

65 rsNodes.Open strNode, cnnMain, 3, 3

67 End If

68

69 ' If there is a request by clicking a hyper link, open the recordset and grab the selected record.

70 If Request.QueryString("Node_ID") <> "" Then

71 rsNodes.Open "SELECT * FROM Calendar_Nodes WHERE Node_ID = " & Request.QueryString("Node_ID"), cnnMain, 3, 3

7 call WriteErrMsg2()

8 end if

9 set rs_q=server.createobject("adodb.recordset")

10 sql="select * from qyml where id="&gsid&""

11 rs_q.open sql,conn,1,1

14 Call infoback("���ӵ�ַ����Ϊ�գ�")

15 End If

16 Set rs = server.CreateObject("adodb.recordset")

17 sql = "select * from bulletin"

18 rs.Open sql, conn, 1, 3

12 var Description = String(Request.Form("Description")).replace(/'/g, "''");

13 var IsActive = ((Request.Form("IsActive")=="1") ? "1":"0");

14 var rsFundingSource = Server.CreateObject("ADODB.Recordset");

15 rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;

16 rsFundingSource.Source = "{call dbo.cp_Funding_Source3("+ Request.Form("MM_recordId") + ",'" + Description + "'," + IsActive + ",0,'E',0)}";

22 }

23

24 var rsFundingSource = Server.CreateObject("ADODB.Recordset");

25 rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;

26 rsFundingSource.Source = "{call dbo.cp_funding_source3("+Request.QueryString("insFunding_source_id")+",'',0,1,'Q',0)}";

88 </table>

89 <input type="hidden" name="MM_update" value="true">

90 <input type="hidden" name="MM_recordId" value="<%= rsFundingSource.Fields.Item("insFunding_source_id").Value %>">

91 </form>

92 </body>

45 end if

46

47 Set objRS = Server.CreateObject("ADODB.Recordset")

48 objConn.Open "FourC"

49

69 objCmd.Parameters("@EVENTID") = donationEventId

70

71 'Open and display the Recordset.

72

73 objRS.Open objCmd

23 <%

24 sql = "select * from gg Order by addtime desc"

25 Set rs=Server.Createobject("ADODB.RECORDSET")

26 rs.Open sql, conn, 1, 1

27 if not rs.eof then

18 <td height="117" valign="top" bgcolor="#FFFFFF"><%dim newsid

19 id=request.QueryString("id")

20 set rs=server.CreateObject("adodb.recordset")

21 rs.open "select * from pf_news where id="&id,conn,1,3

22 rs("pf_news_hits")=rs("pf_news_hits")+1

15 Call infoback("���ݲ���Ϊ�գ�")

16 End If

17 Set rs = server.CreateObject("adodb.recordset")

18 sql = "select * from pf_custom where id="&request.QueryString("id")&""

19 rs.Open sql, conn, 1, 3

22 Call close_rs

23

24 set rsop = server.CreateObject("adodb.recordset")

25 rsop.open "select * from pf_oprate",conn,1,3

26 rsop.addnew

54 <table>

55 <%

56 set rs = server.CreateObject("adodb.recordset")

57 sql = "select * from pf_custom where id="&request.QueryString("id")&""

58 rs.open sql,conn,1,1

131

132 conn.Open "FourC"

133 set rs=Server.CreateObject("ADODB.recordset")

134 sql="SELECT ID, LISTVALUE FROM DONATIONREASONS WHERE ACTIVE = 1 ORDER BY LISTVALUE ASC"

135 rs.Open sql, conn

109 <KEYWORD2>local</KEYWORD2>

110 <KEYWORD2>procedure</KEYWORD2>

111 <KEYWORD2>record</KEYWORD2>

112 <KEYWORD2>return</KEYWORD2>

113 <KEYWORD2>static</KEYWORD2>

21 <div class="title">������</div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc ",conn,1,1

25 if rs.recordcount=0 then

33 else

34 rs.PageSize =20 'ÿҳ��¼����

35 iCount=rs.RecordCount '��¼����

36 iPageSize=rs.PageSize

37 maxpage=rs.PageCount

6 <%

7 If request.Form("submit") = "���ӹ���Ա" Then

8 Set rs = server.CreateObject("adodb.recordset")

9 sql = "select * from pf_admin where pf_admin_name='"&request.Form("pf_admin_name")&"'"

10 rs.Open sql, conn, 1, 1

23 Call infoback("��������������벻һ�£����������룡")

24 End If

25 Set rs = server.CreateObject("adodb.recordset")

26 sql = "select * from pf_admin"

27 rs.Open sql, conn, 1, 3

34 Call close_rs

35

36 set rsop = server.CreateObject("adodb.recordset")

37 rsop.open "select * from pf_oprate",conn,1,3

38 rsop.addnew

99 <%

100 OFFSET = 50

101 Dim total_record, total_page

102 total_record = articlesObj.length

103 total_page = total_record / OFFSET

104

105 if total_page > Round(total_record / OFFSET, 0) then

109 total_page = Round(total_page, 0)

110

111 if total_page = 0 and total_record > 1 then

112 total_page = 1

113 end if

21 <div class="title">������֮��</div>

22 <%

23 set rs=server.createobject("adodb.recordset")

24 rs.open "select * from pf_ms where pf_link_style='������֮��'order by ID asc",conn,1,1

25 if rs.recordcount=0 then

33 else

34 rs.PageSize =4 'ÿҳ��¼����

35 iCount=rs.RecordCount '��¼����

36 iPageSize=rs.PageSize

37 maxpage=rs.PageCount

18 Call infoback("�Ͽεص㲻��Ϊ�գ�")

19 End If

20 Set rs = server.CreateObject("adodb.recordset")

21 sql = "select * from class where ID= "&request.QueryString("ID")&""

22 rs.Open sql, conn, 1, 3

49 <table>

50 <%

51 Set rs = server.CreateObject("adodb.recordset")

52 sql = "select * from class where ID= "&request.QueryString("ID")&""

53 rs.Open sql, conn, 1, 1

25 if Request("submit") = "Add" then

26 sql = "SELECT * FROM events"

27 call CreateRecordSet(RecordSet, sql)

28 RecordSet.AddNew

31 else

32 sql = "SELECT * FROM events WHERE event_id = " & event_id

33 call CreateRecordSet(RecordSet, sql)

34 end if

35

45 RecordSet.Fields("event_country_bm") = Request("event_country_bm")

46 RecordSet.Fields("event_city_bm") = Request("event_city_bm")

47 RecordSet.Fields("event_name_bm") = Request("event_name_bm")

66 RecordSet.Close

67

68 call CloseRecordSet(RecordSet)

69 call ReindexEvents(Year(CDate(Request("event_date"))))

70

57 end if

58

59 'Create the recordset to retrieve data

60 Set oRs = Server.CreateObject("ADODB.Recordset")

68

69 While Not oRs.Eof

70 'Now create second recordset to get details for this factory

71 Set oRs2 = Server.CreateObject("ADODB.Recordset")

75 'Note that we're setting link as Detailed.asp?FactoryId=<<FactoryId>>

76 strXML = strXML & "<set label='" & ors("FactoryName") & "' value='" & ors2("TotOutput") & "' link='" & Server.URLEncode("Detailed.asp?FactoryId=" & ors("FactoryId")) & "'/>"

77 'Close recordset

78 Set oRs2 = Nothing

79 oRs.MoveNext

12 response.write"SQL注入攻击<br/>-------------<br/>一般要封锁IP，用于保护网站安全。因为想得出用攻击代码绝对不简单！特别是74hu_<br/>-------------<br/>"

13 call conndata

14 set rs=Server.CreateObject("ADODB.Recordset")

15 rs.open"select * from 74hu_sql order by id desc",conn,1,1

16 If Not rs.eof then

41 elseif act="dl" then

42 response.write"后台登陆攻击<br/>-------------<br/>一般不封锁IP，用于研究密码，制定人想不出的密码！<br/>-------------<br/>"

43 set rs=Server.CreateObject("ADODB.Recordset")

44 rs.open"select * from 74hu_eyi order by id desc",conn,1,1

45 If Not rs.eof then

4 <!--#include file="../inc/ASPCheckLogin.inc" -->

5 <%

6 var rsEquipmentService = Server.CreateObject("ADODB.Recordset");

7 rsEquipmentService.ActiveConnection = MM_cnnASP02_STRING;

8 rsEquipmentService.Source = "{call dbo.cp_get_eqp_srv("+ Request.QueryString("intEquip_Srv_id") + ",0,0,'',1,'Q',0)}";

12 rsEquipmentService.Open();

13

14 var rsFunction = Server.CreateObject("ADODB.Recordset");

15 rsFunction.ActiveConnection = MM_cnnASP02_STRING;

16 rsFunction.Source = "{call dbo.cp_FrmPanel(10)}";

34 FileContent = KMRFObj.LoadTemplate(KS.Setting(112))

35 If Trim(FileContent) = "" Then FileContent = "ģ�岻����!"

36 Set RefreshRS = Server.CreateObject("Adodb.Recordset")

37 RefreshRS.Open "Select Title,Author,AddDate,Content From KS_Announce Where ID=" & AnnounceID, Conn, 1, 1

38 If Not RefreshRS.EOF Then

7 Applicant_ID = GetVal("Applicant_ID", "")

8

9 ' 2. Create a Recordset Object

10 Set rsApplicant = Server.CreateObject("ADODB.Recordset")

11

12

13 ' 4. If there is a request to update the new record, update the new record

14 If Request.Form("Submit") = "Submit" Then

15 rsApplicant.Open "Application_Perserverence", cnnMain,3,3

56 <table width="98%" height="105" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >

57 <%

58 Set rs=server.CreateObject("Adodb.Recordset")

59 sql="Select * from pl order by id desc"

60 rs.Open sql,conn,1,1

16 For HU_Xh=0 To Ubound(HU_Inf)

17 If Instr(LCase(Request.Form(HU_Post)),HU_Inf(HU_Xh))<>0 Then

18 set rs=Server.CreateObject("ADODB.Recordset")

19 rs.open"select * from 74hu_sql",conn,1,2

20 rs.addnew

43 For HU_Xh=0 To Ubound(HU_Inf)

44 If Instr(LCase(Request.QueryString(HU_Get)),HU_Inf(HU_Xh))<>0 Then

45 set rs=Server.CreateObject("ADODB.Recordset")

46 rs.open"select * from 74hu_sql",conn,1,2

47 rs.addnew

24 <%

25 sql = "select * from news order by id desc"

26 Set rs=Server.Createobject("ADODB.RECORDSET")

27 rs.Open sql, conn, 1, 1

28 if not rs.eof then

16 dim rs,rs1

17 dim flag

18 set rs =server.createobject("adodb.recordset")

19 set rs1 =server.createobject("adodb.recordset")

1 <%

2 ' Dependancies: The parent file must included libraries before run this files '

3 Dim OFFSET, lang, sql, RecordSet

4 Dim objXml, lang_index

5 Dim prev_page, page, next_page

46 <%

47 OFFSET = 50

48 Dim total_record, total_page

49 total_record = articlesObj.length

50 total_page = total_record / OFFSET

51

52 if total_page > Round(total_record / OFFSET, 0) then

56 total_page = Round(total_page, 0)

57

58 if total_page = 0 and total_record > 1 then

59 total_page = 1

60 end if

15 Call infoback("�������ֲ���Ϊ�գ����ұ���Ϊ���֣�")

16 End If

17 Set rs = server.CreateObject("adodb.recordset")

18 sql = "select * from pf_link where id = "&request.QueryString("id")&""

19 rs.Open sql, conn, 1, 3

29 Call close_rs

30

31 set rsop = server.CreateObject("adodb.recordset")

32 rsop.open "select * from pf_oprate",conn,1,3

33 rsop.addnew

61 <table>

62 <%

63 Set rs = server.CreateObject("adodb.recordset")

64 sql = "select * from pf_link where id = "&request.QueryString("id")&""

65 rs.Open sql, conn, 1, 1

67 <td valign="top" bgcolor="#FFFFFF">

68 <table width="100%" border="0">

69 <%set rs2=server.createobject("adodb.recordset")

70 sql2="select * from qyml where user='"&request("T_user")&"'"

71 rs2.open sql2,conn,1,1

9 Call infoback("ְλ���Ʋ���Ϊ�գ�")

10 End If

11 Set rs = Server.CreateObject("ADODB.Recordset")

12 sql = "select * from pf_recruitment where id="&request.QueryString("id")&""

13 rs.Open sql, conn, 1, 3

24

25

26 set rsop = server.CreateObject("adodb.recordset")

27 rsop.open "select * from pf_oprate",conn,1,3

28 rsop.addnew

57 <table class="table">

58 <%

59 Set rs = server.CreateObject("adodb.recordset")

60 sql = "select * from pf_recruitment where id="&request.QueryString("id")&""

61 rs.Open sql, conn, 1, 1

53 if upload.Form("submit") = "Add" then

54 sql = "SELECT * FROM links"

55 call CreateRecordSet(RecordSet, sql)

56 RecordSet.AddNew

59 else

60 sql = "SELECT * FROM links WHERE link_id = " & link_id

61 Call CreateRecordSet(RecordSet, sql)

62 end if

63

119 Dim OrderRecordSet

120 sql = "SELECT COUNT(1) AS 'counter' FROM links WHERE order_index = " & upload.Form("order_index") & " AND NOT (link_id = " & link_id & ")"

121 call CreateRecordSet(OrderRecordSet, sql)

122 if OrderRecordSet.Fields("'counter'") > 0 then

127 RecordSet.Close

128

129 call CloseRecordSet(RecordSet)

130

131 call ReindexLinksData(upload.Form("link_type"), upload.Form("video_category_code"))

16 error_msg = "The retype password doesn't same with the new password"

17 else

18 Dim RecordSet, sql

19 sql = "SELECT password FROM tbl_users WHERE username = '" & Session("login") & "'"

20

21 call SetConnection(GetUserDbPath())

22 call OpenDatabase()

23 call CreateRecordSet(RecordSet, sql)

24

25 if not RecordSet.EOF then

26 if old_password <> RecordSet("password") then

27 error_msg = "The password you entered doesn't seem is same with the previous password"

28 else

29 RecordSet("password") = new_password

30 RecordSet.Update

63

64 Dim oRs

65 'Create the recordset to retrieve data

66 Set oRs = Server.CreateObject("ADODB.Recordset")

67

68 ' Fetch all factory records using SQL Query

69 ' Store chart data values in 'total' column/field and category names in 'FactoryName'

70 dim strQuery

79 Call FC.addDataFromDatabase(oRs, "total", "FactoryName", "" ,"")

80 end if

81 ' Close Recordset

82 oRs.Close

83 set oRs=Nothing

8 var timeTaken = Request.QueryString("timeTaken");

9 var name = Request.QueryString("name");

10 var dateRecorded = Request.QueryString("dateRecorded");

11

12 if (boardType == "" || timeTaken == "" || name == "" || dateRecorded == "") {

22 xml.load(Server.MapPath(".") + "\\top_scores.xml");

23

24 var numScoresRecorded = xml.selectSingleNode("topScores/numberScoresRecorded").text;

25 var rank = -1;

26 var scoresOnBoard = xml.selectNodes("topScores/" + boardType + "/score");

39 var lastScore = false;

40 if (notFound && rank == -1) {

41 if (i < numScoresRecorded - 1) {

42 rank = i + 1;

43 notFound = false;

60 var nameNode = xml.createElement("name");

61 nameNode.text = name;

62 var dateRecordedNode = xml.createElement("dateRecorded");

63 dateRecordedNode.text = dateRecorded;

12 <%

13 call conndata

14 set rs=server.createobject("adodb.recordset")

15 rs.open "select * from 74hu_class where classid="&id,conn,1,1

16

37 set rs=nothing

38 %>

39 <% set rs=server.createobject("adodb.recordset")

40 sql = "select * from 74hu_class where parent="&id&" order by pid asc"

41 rs.open sql,conn,1,1

44 PageSize=20

45 gopage="clist.asp?sid="&sid&"&amp;id="&id&"&amp;"

46 Count=rs.recordcount

47 page=int(request.QueryString ("page"))

48 if page<=0 or page="" then page=1

16 zone=trim(cstr(request("zone")))

17

18 set rs1=server.createobject("adodb.recordset")

19 dim rs,sql,rs2

20 set rs=server.createobject("adodb.recordset")

21 set rs2=server.createobject("adodb.recordset")

22

23

17 T_Company=request("T_Company")

18 T_Email=request("T_Email")

19 set rs=server.createobject("adodb.recordset")

20 sql="select * from message"

21 rs.open sql,conn,1,3

23 end if

24

25 'Create the recordset to retrieve data

26 Set oRs = Server.CreateObject("ADODB.Recordset")

34

35 While Not oRs.Eof

36 'Now create second recordset to get details for this factory

37 Set oRs2 = Server.CreateObject("ADODB.Recordset")

40 'Generate <set label='..' value='..'/>

41 strXML = strXML & "<set label='" & ors("FactoryName") & "' value='" & ors2("TotOutput") & "' />"

42 'Close recordset

43 Set oRs2 = Nothing

44 oRs.MoveNext

13 sql = "SELECT * FROM tbl_users WHERE username='" & username & "' AND password='" & password & "'"

14

15 call CreateRecordSet(RecordSet, sql)

16

17 if not RecordSet.EOF then

32 end if

33

34 call CloseRecordSet(RecordSet)

35 call CloseDatabase()

36 end if

12 Call infoback("��������������벻һ�£����������룡")

13 End If

14 Set rs = server.CreateObject("adodb.recordset")

15 sql = "select * from pf_admin where pf_admin_name = '"&session("pf_admin_name")&"'"

16 rs.Open sql, conn, 1, 3

20 Call close_rs

21

22 set rsop = server.CreateObject("adodb.recordset")

23 rsop.open "select * from pf_oprate",conn,1,3

24 rsop.addnew

54 <form method="post">

55 <%

56 set rs = server.CreateObject("adodb.recordset")

57 sql = "select * from pf_admin where pf_admin_name = '"&session("pf_admin_name")&"'"

58 rs.open sql,conn,1,1

20 'Call infoback("�������ֲ���Ϊ�գ����ұ���Ϊ���֣�")

21 'End If

22 Set rs = server.CreateObject("adodb.recordset")

23 sql = "select * from pf_hdyy"

24 rs.Open sql, conn, 1, 3

36 Call close_rs

37

38 set rsop = server.CreateObject("adodb.recordset")

39 rsop.open "select * from pf_oprate",conn,1,3

40 rsop.addnew

72 </tr>

73 <%

74 Set rs = server.CreateObject("adodb.recordset")

75 sql = "select * from pf_hdyy"

76 rs.Open sql, conn, 1, 1

12 ids=request("ids")

13 call conndata

14 set rs=server.createobject("adodb.recordset")

15 rs.open "select * from 74hu_article where id="&id,conn,1,1

16 if rs.eof and rs.bof then

32 Dim CheckNum:CheckNum=KS.S("CheckNum")

33 If KS.S("Flag")="Check" Then

34 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

35 RS.Open "Select UserName,RndPassWord,Email,CheckNum,locked From KS_User Where UserName='" & UserName & "'",Conn,1,3

36 If RS.Eof And RS.Bof Then

9 end if

10 SQL="Select * from A_d_m_i_n where name='"&Trim(Request("name"))&"'"

11 set rs=server.createobject("adodb.recordset")

12 rs.open SQL,conn,1,3

13 if not rs.eof then

18 End If

19

20 Set rs = server.CreateObject("adodb.recordset")

21 sql = "select * from class"

22 rs.Open sql, conn, 1, 3

64 </tr>

65 <%

66 Set rs = server.CreateObject("adodb.recordset")

67 sql = "select * from class"

68 rs.Open sql, conn, 1, 1

209 <%if session("pf_admin_name")<>"admin" and session("pf_admin_jb")="1" then '����Ա%>

210 <%

211 set rs = server.CreateObject("adodb.recordset")

212 sql = "select * from pf_admin where pf_admin_name = '" & session("pf_admin_name") & "'"

213 rs.open sql,conn,1,1

29 end if

30

31 call CreateRecordSet(RecordSet, sql)

32 %>

33

36 <head>

37 <title>FusionExcel - News & Events - News & Events Page 01 of 27.</title>

38 <meta name="description" content="<% if RecordSet("meta_description") <> "" then %><%= RecordSet("meta_description") %><% else %><% end if %>">

39 <meta name="keywords" content="<% if RecordSet("meta_keywords") <> "" then %><%= RecordSet("meta_keywords") %><% else %>FusionExcel International<% end if %>">

40 <meta charset="ISO-8859-1" />

41 <meta name="robots" content="<% if RecordSet("meta_robots") <> "" then %><%= RecordSet("meta_robots") %><% else %>all<% end if %>">

42 <meta name="distribution" content="global" />

43 <meta name="author" content="<% if RecordSet("meta_author") <> "" then %><%= RecordSet("meta_author") %><% else %>FusionExcel International<% end if %>">

105 <tbody>

106 <tr>

107 <td valign="top"><strong><%= RecordSet("title") %></strong></td>

108 </tr>

109 <tr>

13

14 SQL="Select * from Photo where id="&id

15 Set rs=server.createobject("adodb.recordset")

16 rs.open SQL,conn,1,3

17 if rs.eof then

7 idd=Request.Querystring("id")

8 call conndata

9 set Rs=Server.CreateObject("ADODB.Recordset")

10 Sql="select * from 74hu_link Where classid="&idd&" order by HU_time desc"

11 rs.open Sql,conn,1,1

29

30 <%

31 set rs=server.createobject("adodb.recordset")

32 if style = "ר���Ŷ�" then

33 rs.open "select * from pf_ms where pf_link_style='ר���Ŷ�'order by ID asc",conn,1,1

35 rs.open "select * from pf_ms where pf_link_style='��ʦ�Ŷ�'order by ID asc",conn,1,1

36 end if

37 if rs.recordcount=0 then

38 %><script language=javascript>document.title='<%=rs("pf_link_style")%>_���ٶ�ͯ����ѧУ��ӭ��!';</script>

39 <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">

45 else

46 rs.PageSize =8 'ÿҳ��¼����

47 iCount=rs.RecordCount '��¼����

48 iPageSize=rs.PageSize

49 maxpage=rs.PageCount

4 <%

5 Node_ID = GetVal("Node_ID", "")

6 Set rsNode = Server.CreateObject("ADODB.Recordset")

7 Set rsCalendar = Server.CreateObject("ADODB.Recordset")

9 set conn= Server.CreateObject("ADODB.Connection")

10 set cmd = Server.CreateObject("ADODB.Command")

11 set rs = Server.CreateObject("ADODB.RecordSet")

12

13 conn.Open "FourC"

29 cmd.Parameters("@EventId") = EventId

30

31 'Open and display the Recordset.

32 rs.Open cmd

33

31 UserName=KS.S("i")

32 If UserName="" Then Response.End()

33 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

34 RS.Open "Select top 1 * From KS_Blog Where UserName='" & UserName & "'",Conn,1,1

35 If RS.Eof And RS.Bof Then

56 Dim SQL,i,RS,PhotoUrl

57 str="【查看新闻】<br/>"

58 Set RS=Server.CreateObject("ADODB.RECORDSET")

59 RS.Open "Select top 1 * From KS_EnterPriseNews Where UserName='" & UserName & "' and ID=" & KS.ChkClng(KS.S("ID")) ,conn,1,1

60 If RS.EOF and RS.Bof Then

52

53 sub grade()

54 set rs = server.CreateObject ("adodb.recordset")

55 sql="select top 1 * from config"

56 rs.open sql,conn,1,1

418

419 sub savegrade()

420 set rs = server.CreateObject ("adodb.recordset")

421 sql = "select top 1 * from config"

422 rs.Open sql,conn,1,3

6 End If

7

8 ' Create a recordset object called rsRotation.

9 set rsRotation = Server.CreateObject("ADODB.Recordset")

10 set rsRotation2 = Server.CreateObject("ADODB.Recordset")

11 set rsMonth = Server.CreateObject("ADODB.Recordset")

12 set rsRegion = Server.CreateObject("ADODB.Recordset")

13 set rsTeams = Server.CreateObject("ADODB.Recordset")

14 set rsTeams2 = Server.CreateObject("ADODB.Recordset")

15

16 rsRotation2.Open "Select * from Fema_Rotation", cnnBCFPD, 3

7 Category_ID = Request.QueryString("Category_ID")

8

9 set rsImgCat = Server.CreateObject("ADODB.Recordset")

10 set rsImage = Server.CreateObject("ADODB.Recordset")

3 <%

4 dim rs, BoardYear

5 set rs = server.CreateObject("ADODB.Recordset")

6 strSQL = "SELECT DISTINCT MinutesYear FROM BoardMinutes ORDER BY MinutesYear DESC"

7 set rs = cnnMain.execute(strSQL)

9 Application_ID = GetVal("Application_ID", "")

10

11 ' 2. Create a Recordset Object

12 Set rsApplicant = Server.CreateObject("ADODB.Recordset")

13

14 ' If there is a request to delete, delete the record.

15 'If Request.Form("Submit") = "Delete Contact" Then

16 rsApplicant.Open "Application_SK", cnnBCFPD, 3, 3

25 <P> <style type="text/css"><!--.style2 { font-family: Arial, Helvetica, sans-serif; font-size: 16px; line-height: 150%;}--></style></P>

26 <%

27 set rs =server.CreateObject("adodb.recordset")

28 rs.open "select * from pf_custom",conn,1,1

29 %>

5 <%

6 conn.execute("update message set new=1 where id="&request("id"))

7 set rs=server.createobject("adodb.recordset")

8 sql="select * from message where id="&request("id")

9 rs.open sql,conn,1,1

64 <table cellspacing=1 cellpadding=3 width=100% align=center border=0 bgcolor="#B1D4F2">

65 <tr bgcolor="#EDF6FF">

66 <%set rs2=server.createobject("adodb.recordset")

67 sql2="select * from qyml where user='"&rs("T_user")&"'"

68 rs2.open sql2,conn,1,1

14 select case action

15 case "gf"

16 Set rs = server.CreateObject("adodb.recordset")

17 sql = "select * from pf_buy"

18 rs.Open sql, conn, 1, 3

37

38 case "yz"

39 Set rs = server.CreateObject("adodb.recordset")

40 sql = "select * from pf_yz"

41 rs.Open sql, conn, 1, 3

6 <%

7 call conndata

8 set rs=server.createobject("adodb.recordset")

9 rs.open "Select * from 74hu_pl order by id desc",conn,1,1

10 If Not rs.eof Then

26 plsj=rs("pltime")

27

28 set rs1=server.createobject("adodb.recordset")

29 sql="Select classid,title from 74hu_article where ID="&smsid

30 rs1.open sql,conn,1,1

8 Set objConn = Server.CreateObject("ADODB.Connection")

9 Set objCmd = Server.CreateObject("ADODB.Command")

10 Set objRS = Server.CreateObject("ADODB.Recordset")

11

12 objConn.Open "FourC"

33 objCmd.Parameters("@EVENTID") = donationEventId

34

35 'Open and display the Recordset.

36

37 objRS.Open objCmd

2 <!-- #include file="Include/Login_Conn.asp" -->

3 <%

4 set rs=server.createobject("adodb.recordset")

5 %>

6 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

3 <%

4 id=request.QueryString("id")

5 set rs1=server.CreateObject("adodb.recordset")

6 rs1.open "select * from pf_sc where sc_num="&id,conn,1,3

7 %>

26 <div class="content">

27 <%

28 set rs=server.CreateObject("adodb.recordset")

29 rs.open "select * from pf_sc where sc_num="&request.QueryString("id")&"",conn,1,1

30 %>

4 'NewsID=Rs(0) NClassID=Rs(1) NClassName=Rs(2) Title=Rs(3) Editor=Rs(4) Hits=Rs(5) IncludePic=Rs(6)

5 'Recommend=Rs(7)

6 Set rs= Server.CreateObject("ADODB.Recordset")

7 rs.open sql,conn,1,1%>

8 <head>

72 'conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb") & ";"

73

74 Set rs = Server.CreateObject("ADODB.Recordset")

75 rs.Open mySQL, conn, 3, 3

76

3 <%

4 dim rs, BudgetYear

5 set rs = server.CreateObject("ADODB.Recordset")

6 strSQL = "SELECT DISTINCT BudgetYear FROM Budget ORDER BY BudgetYear DESC"

7 set rs = cnnMain.execute(strSQL)

17 <P> <style type="text/css"><!--.style2 { font-family: Arial, Helvetica, sans-serif; font-size: 16px; line-height: 150%;}--></style></P>

18 <%

19 set rs =server.CreateObject("adodb.recordset")

20 rs.open "select * from pf_custom",conn,1,1

21 %>

7 idd=Request.Querystring("id")

8 call conndata

9 set Rs=Server.CreateObject("ADODB.Recordset")

10 Sql="select * from 74hu_link order by HU_time desc"

11 rs.open Sql,conn,1,1

15 item_a = ""

16 msg=""

17 set rs =server.createobject("adodb.recordset")

18 set rs1 =server.createobject("adodb.recordset")

20 <div class="content">

21 <div class="title">���¿�����Ϣ</div>

22 <%set rs=server.createobject("adodb.recordset")

23 rs.open "select * from class order by ID desc",conn,1,1

24 if rs.recordcount=0 then

32 else

33 rs.PageSize =20 'ÿҳ��¼����

34 iCount=rs.RecordCount '��¼����

35 iPageSize=rs.PageSize

36 maxpage=rs.PageCount

3 <%

4 id=request.QueryString("id")

5 set rs1=server.CreateObject("adodb.recordset")

6 rs1.open "select * from pf_ms where id="&id,conn,1,3

7 %>

75

76 Dim oRs

77 'Create the recordset to retrieve data

78 Set oRs = Server.CreateObject("ADODB.Recordset")

2 <!--#include virtual="/include/menus/about.asa"-->

3 <%

4 ' Create a recordset object called rsPersonnel.

5 set rsPersonnel = Server.CreateObject("ADODB.Recordset")

6 set rsStations = Server.CreateObject("ADODB.Recordset")

7

8 %>

5

6 SQL="Select * from Link"

7 set rs=server.createobject("adodb.recordset")

8 rs.open SQL,conn,1,3

9 rs.AddNew

23 <%

24 sql = "select * from A_d_m_i_n"

25 Set rs=Server.Createobject("ADODB.RECORDSET")

26 rs.Open sql, conn, 1, 1

27 if not rs.eof then

3 <%

4 SQL="Select * from gg where id="&Request("id")

5 set rs=server.createobject("adodb.recordset")

6 rs.open SQL,conn,1,3

7 if rs.eof and rs.bof then

15 end if

16 SQL="Select * from gg where id="&Request("id")

17 set rs=server.createobject("adodb.recordset")

18 rs.open SQL,conn,1,3

19 rs("title")=Trim(Request("title"))

6 'errHandler is main Variable used in flash movie

7 '****************

8 Set RS = CreateObject("ADODB.Recordset")

9

10 '>>>> Add User <<<<

6 Applicant_ID = GetVal("Applicant_ID", "")

7

8 ' 2. Create a Recordset Object

9 Set rsApplicant = Server.CreateObject("ADODB.Recordset")

10

11

12 ' 4. If there is a request to update the new record, update the new record

13 If Request.Form("Submit") = "Submit" Then

14 rsApplicant.Open "Application_SK", cnnMain,3,3

6 var rsContact__intpAdult_id = String(Request.QueryString("intAdult_id"));

7 var rsContact__intContact_id = String(Request.QueryString("intContact_id"));

8 var rsContact = Server.CreateObject("ADODB.Recordset");

9 rsContact.ActiveConnection = MM_cnnASP02_STRING;

10 rsContact.Source = "{call dbo.cp_Cntct_Detail("+ rsContact__intpAdult_id.replace(/'/g, "''") + ","+ rsContact__intContact_id.replace(/'/g, "''") + ")}";

15

16 var rsClient__intpAdult_id = String(Request.QueryString("intAdult_id"));

17 var rsClient = Server.CreateObject("ADODB.Recordset");

18 rsClient.ActiveConnection = MM_cnnASP02_STRING;

19 rsClient.Source = "{call dbo.cp_Idv_Adult_Client("+ rsClient__intpAdult_id.replace(/'/g, "''") + ")}";

15 Call infoback("���ݲ���Ϊ�գ�")

16 End If

17 Set rs = server.CreateObject("adodb.recordset")

18 sql = "select * from pf_custom where id="&request.QueryString("id")&""

19 rs.Open sql, conn, 1, 3

23

24

25 set rsop = server.CreateObject("adodb.recordset")

26 rsop.open "select * from pf_oprate",conn,1,3

27 rsop.addnew

56 <table>

57 <%

58 set rs = server.CreateObject("adodb.recordset")

59 sql = "select * from pf_custom where id="&request.QueryString("id")&""

60 rs.open sql,conn,1,1

30 call conndata

31

32 set rs=server.createobject("adodb.recordset")

33 rs.open "select * from 74hu_article",conn,1,3

34 rs.addnew

6 <% dim rs,Sql

7 call conndata

8 set rs=server.createobject("adodb.recordset")

9 sql = "select * from 74hu_linkc Order by pid asc"

10 rs.open sql,conn,1,1

14 Dim Count,page,pagecount,gopage

15 gopage="Link_class.asp?sid="&sid&"&amp;"

16 Count=rs.recordcount

17 response.write (""&now()&"<br/>")

18 response.write ("共:"&count&"条友链分类<br/>")

124 dim i

125 dim j

126 set rs=server.createobject("adodb.recordset")

127 rs.open "select * from cat where rank = '2'",conn

128 if not rs.eof then

15 mySQL="INSERT INTO ReportLog (PrintedBy, PrintDate, PrintTime, clientIP, ReportFileName, ReportParameterNames, ReportParameterValues, ReturnURL) VALUES('"& session("ID") & "',N'"& printDate & "', N'"& printTime & "', N'"& clientIP & "', N'"& ReportFileName & "', N'"& ReportParameterNames & "', N'"& ReportParameterValues & "', N'"& ReturnURL & "' ); SELECT @@Identity AS NewInvoicePrintForm"

16

17 Set RS_ReportLog = conn.Execute(mySQL).NextRecordSet

18 NewInvoicePrintForm = RS_ReportLog("NewInvoicePrintForm")

19

21 <div class="title">��ɽ��У<span style="float:right;"><a href="yy.asp?school=��ɽ��У"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=9",conn,1,1

25 %>

21 <div class="title">�ɽ���ͤУ<span style="float:right;"><a href="yy.asp?school=�ɽ���ͤУ"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=8",conn,1,1

25 %>

21 <div class="title">��������У<span style="float:right;"><a href="yy.asp?school=��������У"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=7",conn,1,1

25 %>

21 <div class="title">����ݷׯУ<span style="float:right;"><a href="yy.asp?school=����ݷׯУ"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=5",conn,1,1

25 %>

21 <div class="title">�ֶ�����У<span style="float:right;"><a href="yy.asp?school=�ֶ�����У"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=4",conn,1,1

25 %>

21 <div class="title">�������У<span style="float:right;"><a href="yy.asp?school=�������У"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=3",conn,1,1

25 %>

21 <div class="title">��ڶ���У<span style="float:right;"><a href="yy.asp?school=��ڶ���У"><img src="images/yy.png" border="0"></a></span></div>

22 <%

23 set rs=server.CreateObject("adodb.recordset")

24 rs.open "select * from pf_sc where sc_num=6",conn,1,1

25 %>

21 '--����EXCEL�ļ�

22 set myfile = fs.CreateTextFile(filename,true)

23 Set rs = Server.CreateObject("ADODB.Recordset")

24 '--�����ݿ��а�����ŵ�EXCEL�е����ݲ����

25 sql = "select id as ���,name as ����,sex as �Ա�,age as ����,birth as ����,Fname as �ҳ�����,tel as �绰,email as ��������,school as У��,hd as �,regtime as ԤԼʱ�� from Pf_buy"

28 if rs.EOF and rs.BOF then

29

30 set rsop = server.CreateObject("adodb.recordset")

31 rsop.open "select * from pf_oprate",conn,1,3

32 rsop.addnew

60 set rs = nothing

61

62 set rsop = server.CreateObject("adodb.recordset")

63 rsop.open "select * from pf_oprate",conn,1,3

64 rsop.addnew

5

6 <%

7 set rsImageCat = Server.CreateObject("ADODB.Recordset")

8 set rsImage = Server.CreateObject("ADODB.Recordset")

6 End If

7

8 ' Create a recordset object called rsRotation.

9 set rsRotation = Server.CreateObject("ADODB.Recordset")

15 Call infoback("���ݲ���Ϊ�գ�")

16 End If

17 Set rs = server.CreateObject("adodb.recordset")

18 sql = "select * from pf_custom where id="&request.QueryString("id")&""

19 rs.Open sql, conn, 1, 3

23 Call close_conn

24

25 set rsop = server.CreateObject("adodb.recordset")

26 rsop.open "select * from pf_oprate",conn,1,3

27 rsop.addnew

54 <table>

55 <%

56 set rs = server.CreateObject("adodb.recordset")

57 sql = "select * from pf_custom where id="&request.QueryString("id")&""

58 rs.open sql,conn,1,1

28 response.end

29 end if

30 set rs=server.CreateObject("adodb.recordset")

31 sql="select * from zx_info a,qyml b where a.infoid="&request("infoid")&" and a.gsid=b.user"

32 'sql="select * from info2 where infoid="&infoid

60 </tr>

61 <%

62 set rs1=server.CreateObject("adodb.recordset")

63 sql1 = "select * from zx_info2 where infoid="&rs("infoid")&" order by id desc"

64 rs1.open sql1,conn,1,1

65 if not rs1.eof then

66 for j=1 to rs1.recordcount

67 %>

68 <tr bgcolor="#FFFFFF" align="center">

17 Cnxn.Open strCnxn

18

19 ' Open compound recordset

20 Set rstCompound = Server.CreateObject("ADODB.Recordset")

54 end if

55 end if

56 Set rstCompound = rstCompound.NextRecordset

57 Loop

58

10

11 if (String(Request.Form("MM_update"))=="true"){

12 var rsUpdateBoxes = Server.CreateObject("ADODB.Recordset");

13 rsUpdateBoxes.ActiveConnection = MM_cnnASP02_STRING;

14 rsUpdateBoxes.CursorType = 0;

42 }

43

44 var rsBoxes = Server.CreateObject("ADODB.Recordset");

45 rsBoxes.ActiveConnection = MM_cnnASP02_STRING;

46 rsBoxes.Source = "{call dbo.cp_eqpsrv_ship_box(0,"+Request.QueryString("intSrv_dtl_id")+",0,0,"+Request.QueryString("intEquip_Srv_id")+",0,0,'Q',0)}";

10

11 SQL="Select * from area where aid="&Request.QueryString("aid")

12 set rs=server.createobject("Adodb.Recordset")

13 rs.open SQL,conn,1,3

14 areaname=Trim(rs("areaname"))

3 <!--#include file="../Member/check.asp"-->

4 <%

5 set rs=server.createobject("adodb.recordset")

6 sql="select * from message where id="&request("id")

7 rs.open sql,conn,1,1

62 <td valign="top" bgcolor="#FFFFFF">

63 <table width="100%" border="0">

64 <%set rs2=server.createobject("adodb.recordset")

65 sql2="select * from qyml where user='"&rs("T_user")&"'"

66 rs2.open sql2,conn,1,1

66 call SetConnection(GetLinksDbPath())

67 call OpenDatabase()

68 call CreateRecordSet(RecordSet, sql)

69 %>

70 <form method="post" id="id_links_list" action="links.asp?delete=1">

90 <% if RecordSet("link_type") = 1 then %>

91 <a href="article-edit.asp?action=edit&amp;id=<%= RecordSet("article_id") %>" target="_blank"><%= RecordSet("article_name") %></a>

92 <% elseif RecordSet("link_type") = 2 then %>

94 <% end if %>

95 </td>

96 <td><a href="link-edit.asp?action=edit&amp;id=<%= RecordSet("link_id") %>"><%= RecordSet("link_title") %></a></td>

97 <% if RecordSet("publish") then %>

109 </table>

110 </form>

111 <% call CloseRecordSet(RecordSet) %>

112 <!--#include file="footer.asp" -->

12 classid=int(request.QueryString("classid"))

13 call conndata

14 set rs=server.createobject("adodb.recordset")

15 rs.open "Select * from 74hu_article where id="&id ,conn,2,3

16 If Not rs.eof Then

36

37

38 ' If there is a request to update the new record, update the new record.

39 If Request.Form("Submit") = "Update Category" Then

40 rsCategory.Open "Training_library_category", cnnMain,3,3

49 End If

50

51 ' If there is a request to update an existing record, update the existing record.

52 If Request.Form("Submit") = "Update Existing Category" Then

53 rsCategory.Open "SELECT * FROM Training_library_category WHERE Category_ID =" & Request.Form("Category_ID"), cnnMain,3,3

75 <% If Request.Form("Submit") = "Add New Category" OR Request.QueryString("Category_ID") <> "" Then

76

77 ' If there is a request to add new record, add new record.

78 If Request.Form("Submit") = "Add New Category" Then

79 rsCategory.Open strNode, cnnMain, 3, 3

292 <KEYWORD2>range</KEYWORD2>

293 <KEYWORD2>real</KEYWORD2>

294 <KEYWORD2>record</KEYWORD2>

295 <KEYWORD2>recursive</KEYWORD2>

296 <KEYWORD2>red</KEYWORD2>