用过华众的进来！！！

460411234

cpuer 发表于 2012-12-3 20:37
比如连接方式

/incs/setup.asp

1. <%
   
2. if not application("websiteini") then
   
3. conn.open constr
   
4. menuini = ""
   
5. query = "select pt_id,pt_tag,pt_nme from pdttpe where pt_shw=1 order by pt_odr"
   
6. set rs4=server.CreateObject("adodb.recordset")
   
7. set rs3=server.CreateObject("adodb.recordset")
   
8. rs4.Open query, conn, 1, 1
   
9. temppdttpe = ""
   
10. While Not rs4.EOF
    
11. tempclstpe = ""
    
12. ''$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
    
13. tempptid = rs4("pt_id")
    
14. query = "select pc_id,pc_nme from v_pdtcls where  pc_tid=" & tempptid & " and (pc_shw=1) order by pt_odr,pc_odr"
    
15. rs3.Open query, conn, 1, 1
    
16. While Not rs3.EOF
    
17. temppcnme = Trim(rs3("pc_nme"))
    
18. tempclstpe = tempclstpe & rs3("pc_id") & ":" & temppcnme & ":" & CStr(rs4("pt_id")) & ";"
    
19. rs3.MoveNext
    
20. Wend
    
21. rs3.Close
    
22. 
    
23. If Right(tempclstpe, 1) = ";" Then
    
24. tempclstpe = Left(tempclstpe, Len(tempclstpe) - 1)
    
25. End If
    
26. 
    
27. application("pl_menu_" & rs4("pt_tag"))=split(tempclstpe,";")
    
28. ''$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$'
    
29. tempptnme = Trim(rs4("pt_nme"))
    
30. temppdttpe = temppdttpe & rs4("pt_tag") & ":" & tempptnme & ":" & CStr(rs4("pt_id")) & ";"
    
31. rs4.MoveNext
    
32. Wend
    
33. rs4.Close
    
34. set rs3=nothing
    
35. set rs4=nothing
    
36. 
    
37. If Right(temppdttpe, 1) = ";" Then
    
38. temppdttpe = Left(temppdttpe, Len(temppdttpe) - 1)
    
39. End If
    
40. 
    
41. application("pl_menutpe")=split(temppdttpe,";")
    
42. 
    
43. 
    
44. query="select * from pltcfg"
    
45. set rs3=server.CreateObject("adodb.recordset")
    
46. rs3.open query,conn,3,1
    
47. if not rs3.eof then
    
48. application("pl_prccnt")=rs3("pl_prccnt")
    
49. application("pl_modid")=rs3("pl_modid")
    
50. application("pl_modadr")=rs3("pl_modadr")
    
51. application("pl_agtsys")=rs3("pl_agtsys")
    
52. application("pl_modrot")=trim(rs3("pl_modadr"))&"/webmod"&rs3("pl_modid")
    
53. application("pl_hst_freedme")=trim(rs3("pl_hst_freedme"))
    
54. application("pl_stetag")=trim(rs3("pl_stetag"))
    
55. application("pl_stenme")=trim(rs3("pl_stenme"))
    
56. application("pl_steurl")=trim(rs3("pl_steurl"))
    
57. application("pl_usrnme")=trim(rs3("pl_usrnme"))
    
58. application("pl_usrnme_gst")=trim(rs3("pl_usrnme_gst"))
    
59. application("pl_usrpss_gst")=trim(rs3("pl_usrpss_gst"))
    
60. application("pl_dftprc")=trim(rs3("pl_dftprc"))
    
61. application("pl_dftpwr")=trim(rs3("pl_dftpwr"))
    
62. application("pl_dmectr_url")=trim(rs3("pl_dmectr_url"))
    
63. application("pl_hstctr_url")=trim(rs3("pl_hstctr_url"))
    
64. application("pl_ftpctr_url")=trim(rs3("pl_ftpctr_url"))
    
65. application("pl_emlctr_url")=trim(rs3("pl_emlctr_url"))
    
66. application("pl_sqlctr_url")=trim(rs3("pl_sqlctr_url"))
    
67. application("pl_pay_url")=trim(rs3("pl_pay_url"))
    
68. application("pl_onlpay_url")=trim(rs3("pl_onlpay_url"))
    
69. application("pl_copnme_cn")=trim(rs3("pl_copnme_cn"))
    
70. application("pl_copnme_en")=trim(rs3("pl_copnme_en"))
    
71. application("pl_adr_cn")=trim(rs3("pl_adr_cn"))
    
72. application("pl_cde")=trim(rs3("pl_cde"))
    
73. application("pl_emlask")=trim(rs3("pl_emlask"))
    
74. application("pl_emlfnc")=trim(rs3("pl_emlfnc"))
    
75. application("pl_emlsup")=trim(rs3("pl_emlsup"))
    
76. application("pl_emljob")=trim(rs3("pl_emljob"))
    
77. application("pl_tel_lng")=trim(rs3("pl_tel_lng"))
    
78. application("pl_tel_sht")=trim(rs3("pl_tel_sht"))
    
79. application("pl_fax")=trim(rs3("pl_fax"))
    
80. application("pl_oicq")=trim(rs3("pl_oicq"))
    
81. application("pl_emlsvr")=trim(rs3("pl_emlsvr"))
    
82. application("pl_emlath")=trim(rs3("pl_emlath"))
    
83. application("pl_emlmbx")=trim(rs3("pl_emlmbx"))
    
84. application("pl_emlpss")=trim(rs3("pl_emlpss"))
    
85. application("pl_emlnme")=trim(rs3("pl_emlnme"))
    
86. application("pl_ifsecnum")=trim(rs3("pl_ifsecnum"))
    
87. application("pl_newifcrd")=trim(rs3("pl_newifcrd"))
    
88. application("pl_newifcfm")=trim(rs3("pl_newifcfm"))
    
89. application("pl_emlsgl")=trim(rs3("pl_emlsgl"))
    
90. application("pl_usrnme_sys")=trim(rs3("pl_usrnme_sys"))
    
91. application("pl_tstcnt")=trim(rs3("pl_tstcnt"))
    
92. end if
    
93. rs3.close
    
94. query="select pl_ipsfttms,pl_iphrdtms,pl_ipsftday,pl_ifuse,pl_atornw_day from atosys"
    
95. rs3.open query,conn,3,1
    
96. if not rs3.eof then
    
97. application("pl_ipsfttms")=trim(rs3("pl_ipsfttms"))
    
98. application("pl_iphrdtms")=trim(rs3("pl_iphrdtms"))
    
99. application("pl_ipsftday")=trim(rs3("pl_ipsftday"))
    
100. application("pl_ifuse")=trim(rs3("pl_ifuse"))
     
101. application("pl_atornw_day")=trim(rs3("pl_atornw_day"))
     
102. end if
     
103. rs3.close
     
104. set rs3=nothing
     
105. conn.close
     
106. application("websiteini")=true
     
107. 
     
108. if instr(application("pl_onlpay_url"),"//") then
     
109. pl_onlpay_url_2=right(application("pl_onlpay_url"),len(application("pl_onlpay_url"))-(instr(application("pl_onlpay_url"),"//")+1))
     
110. pl_onlpay_url_2=right(pl_onlpay_url_2,len(pl_onlpay_url_2)-instr(pl_onlpay_url_2,"/")+1)
     
111. application("pl_onlpay_url_2")=pl_onlpay_url_2
     
112. end if
     
113. 
     
114. end if
     
115. '################################################################################
     
116. %>

复制代码

460411234

/incs/constr.asp  数据库配置文件

1. <%
   
2. constr="driver={SQL Server};server=localhost;uid=hzhost;pwd=mjj.;database=hzhost"
   
3. %>

复制代码

460411234

cpuer 发表于 2012-12-3 20:37
比如连接方式

C大  求指点  源码贴上来了

460411234

MJJ们刷帖真快啊，顶上去

qy117121

没用过

460411234

MJJ们刷帖真快啊，顶上去

hz555

你这个应该是数据库的权限问题，把DATA目录加上你的数据库单独用户名权限！