目的:创建与数据库交互的asp.net例子
一、新建一个空解决方案(也可直接建项目)
二、在项目中新建一个项目,然后新建三层 分别是:DAL 、BLL 、Model
三、创建数据库(我使用vs2010自带数据库 感觉比较方便)
首先第一次使用在 服务器资源管理器中 要建立一个数据库 在空白处 右键 即可建立
然后插入数据
注意:红框 连接数据库的时候 会需要字符串 点击红框 你懂得!!
四、DBHelper编写(网上资料) DBHelper 写在DAL中
1 Imports System
2 Imports System.Collections
3 Imports System.Collections.Specialized
4 Imports System.Data
5 Imports System.Data.SqlClient
6 Imports System.Configuration
7 Imports System.Data.Common
8 Imports System.Collections.Generic
9
10 'Namespace Tianli.DBUtility
11
12 '修改成實際項目的命名空間名稱
13 ''' <summary>
14 ''' 資料訪問基礎類(基於Oracle)
15 ''' 可以用戶可以修改滿足自己專案的需要。
16 ''' </summary>
17 Public MustInherit Class DBHelper
18
19 ' Protected Shared connectionString As String = ConfigurationSettings.AppSettings("conectiongstring")
20 Protected Shared connectionString As String = "Data Source=WISEPERSON-2006\SQLEXPRESS;Initial Catalog=tom;Integrated Security=True;Pooling=False"
21
22 Public Sub New()
23 End Sub
24
25 #Region "公用方法"
26
27 Public Shared Function Exists(ByVal strSql As String, ByVal ParamArray cmdParms As SqlParameter()) As Boolean
28 Dim obj As Object = Getsingle(strSql, cmdParms)
29 Dim cmdresult As Integer
30 If ([Object].Equals(obj, Nothing)) OrElse ([Object].Equals(obj, System.DBNull.Value)) Then
31 cmdresult = 0
32 Else
33 cmdresult = Integer.Parse(obj.ToString())
34 End If
35 If cmdresult = 0 Then
36 Return False
37 Else
38 Return True
39 End If
40 End Function
41 Public Shared Function Exists(ByVal strSql As String) As Boolean
42 Dim obj As Object = Getsingle(strSql)
43 Dim cmdresult As Integer
44 If ([Object].Equals(obj, Nothing)) OrElse ([Object].Equals(obj, System.DBNull.Value)) Then
45 cmdresult = 0
46 Else
47 cmdresult = Integer.Parse(obj.ToString())
48 End If
49 If cmdresult = 0 Then
50 Return False
51 Else
52 Return True
53 End If
54 End Function
55 #End Region
56
57 #Region "執行簡單SQL語句"
58 ''' <summary>
59 ''' 执行sql语句,返回影响的记录数
60 ''' </summary>
61 ''' <param name="Sqlstring">sql语句</param>
62 ''' <returns>影响记录数据</returns>
63 ''' <remarks></remarks>
64 Public Shared Function ExecuteSql(ByVal Sqlstring As String) As Integer
65 Dim connection As New SqlConnection(connectionString)
66 If connection.State = ConnectionState.Closed Then
67 connection.Open()
68 End If
69 Dim trans As SqlTransaction = connection.BeginTransaction
70 Dim cmd As New SqlCommand
71 cmd.Connection = connection
72 cmd.Transaction = trans
73 cmd.CommandText = Sqlstring
74 Try
75 Dim row As Integer = cmd.ExecuteNonQuery
76 trans.Commit()
77 Return row
78 Catch ex As Exception
79 trans.Rollback()
80 Throw New Exception(ex.Message)
81 End Try
82
83 End Function
84
85
86 Public Shared Sub ExecuteSqltran(ByVal sqlstringList As ArrayList)
87 Dim conn As New SqlConnection(connectionString)
88 conn.Open()
89 If conn.State = ConnectionState.Closed Then
90 conn.Open()
91 End If
92 Dim trans As SqlTransaction = conn.BeginTransaction
93 Dim cmd As New SqlCommand
94 cmd.Connection = conn
95 cmd.Transaction = trans
96 Try
97 For n As Integer = 0 To sqlstringList.Count - 1
98 Dim strsql As String = sqlstringList(n).ToString()
99 If strsql.Trim().Length > 1 Then
100 cmd.CommandText = strsql
101 cmd.ExecuteNonQuery()
102 End If
103 Next
104 trans.Commit()
105 Catch ex As Exception
106 trans.Rollback()
107 Throw New Exception(ex.Message)
108 End Try
109 End Sub
110
111 ''' <summary>
112 ''' 執行一條計算查詢結果語句,返回查詢結果(object)。
113 ''' </summary>
114 ''' <param name="SQLString">計算查詢結果語句</param>
115 ''' <returns>查詢結果(object)</returns>
116 Public Shared Function Getsingle(ByVal sqlstring) As Object
117 Dim connection As New SqlConnection(connectionString)
118 If connection.State = ConnectionState.Closed Then
119 connection.Open()
120 End If
121 Dim cmd As New SqlCommand(sqlstring, connection)
122 Try
123 Dim obj As Object = cmd.ExecuteScalar()
124 If ([Object].Equals(obj, Nothing)) Or ([Object].Equals(obj, System.DBNull.Value)) Then
125 Return Nothing
126 Else
127 Return obj
128 End If
129 Catch ex As Exception
130 connection.Close()
131 Throw New Exception(ex.Message)
132 End Try
133
134 End Function
135
136 ''' <summary>
137 ''' 執行查詢語句,返回SqlExecuteReader
138 ''' </summary>
139 ''' <param name="strSQL">查詢語句</param> 一般用於聚集函數返回值
140 ''' <returns>SqlExecuteReader</returns>
141 Public Shared Function SqlExecuteReader(ByVal strSQL As String) As SqlDataReader
142 Dim connection As New SqlConnection(connectionString)
143 If connection.State = ConnectionState.Closed Then
144 connection.Open()
145 End If
146 Dim cmd As New SqlCommand(strSQL, connection)
147 Try
148 Dim myReader As SqlDataReader = cmd.ExecuteReader()
149 Return myReader
150 Catch ex As Exception
151 Throw New Exception(ex.Message)
152 End Try
153 End Function
154
155 ''' <summary>
156 ''' 執行帶一個存儲過程參數的的SQL語句。
157 ''' </summary>
158 ''' <param name="SQLString">SQL語句</param>
159 ''' <param name="content">參數內容,比如一個欄位是格式複雜的文章,有特殊符號,可以通過這個方式添加</param>
160 ''' <returns>影響的記錄數</returns>
161
162 Public Shared Function ExecuteSql(ByVal SQLString As String, ByVal content As String) As Integer
163 Dim connection As New SqlConnection(connectionString)
164 Dim cmd As New SqlCommand(SQLString, connection)
165 Dim myParameter As New System.Data.SqlClient.SqlParameter("@content", SqlDbType.NText)
166 myParameter.Value = content
167 cmd.Parameters.Add(myParameter)
168 Try
169 connection.Open()
170 Dim rows As Integer = cmd.ExecuteNonQuery()
171 Return rows
172 Catch E As System.Data.SqlClient.SqlException
173 Throw New Exception(E.Message)
174 Finally
175 cmd.Dispose()
176 connection.Close()
177 End Try
178 End Function
179
180 ''' <summary>
181 ''' 返回最大值
182 ''' </summary>
183 ''' <param name="FieldName">字段名称</param>
184 ''' <param name="TableName">表名称</param>
185 ''' <returns></returns>
186 ''' <remarks></remarks>
187 Public Shared Function GetMaxID(ByVal FieldName As String, ByVal TableName As String) As Integer
188 Dim strsql As String = "select max(" + FieldName + ")+1 from " + TableName
189 Dim obj As Object = Getsingle(strsql)
190 If obj Is Nothing Then
191 Return 1
192 Else
193 Return Integer.Parse(obj.ToString())
194 End If
195 End Function
196
197 ' <summary>
198 ' 向資料庫裏插入圖像格式的欄位(和上面情況類似的另一種實例)
199 ' </summary>
200 ' <param name="strSQL">SQL語句</param>
201 ' <param name="fs">圖像位元組,資料庫的欄位類型為image的情況</param>
202 ' <returns>影響的記錄數</returns>
203
204 '//保存SQL server2000的Image
205 'string pathName;
206 'pathName = this.openFileDialog1.FileName;
207 '//將圖像讀入到字節數組
208 'System.IO.FileStream fs = new System.IO.FileStream(pathName,System.IO.FileMode.Open,System.IO.FileAccess.Read);
209 'byte[] buffByte = new byte[fs.Length];
210 'fs.Read(buffByte,0,(int)fs.Length);
211 'fs.Close();
212 'fs = null;
213
214 'public byte[] ConvertImage(Image image)
215 '{
216 ' FileStream fs=new FileStream("imagetemp",FileMode.Create,FileAccess.Write,FileShare.None);
217 ' BinaryFormatter bf = new BinaryFormatter();
218 ' bf.Serialize(fs,(object)image);
219 ' fs.Close();
220 ' fs=new FileStream("imagetemp",FileMode.Open,FileAccess.Read,FileShare.None);
221 ' byte[] bytes = new byte[fs.Length];
222 ' fs.Read(bytes,0,(int)fs.Length);
223 ' fs.Close();
224 ' return bytes;
225 '}
226
227 'public Image ReadImage(byte[] bytes)
228 '{
229 ' FileStream fs=new FileStream("imagetemp1",FileMode.Create,FileAccess.Write,FileShare.None);
230 ' foreach(byte a in bytes)
231 ' {
232 ' fs.WriteByte(a);
233 ' }
234 ' fs.Close();
235 ' fs=new FileStream("imagetemp1",FileMode.Open,FileAccess.Read,FileShare.None);
236 ' BinaryFormatter bf = new BinaryFormatter();
237 ' object obj=bf.Deserialize(fs);
238 ' fs.Close();
239 ' return (Image)obj;
240 '}
241 Public Shared Function ExecuteSqlInsertImg(ByVal strSQL As String, ByVal fs As Byte()) As Integer
242 Dim connection As New SqlConnection(connectionString)
243 If connection.State = ConnectionState.Closed Then
244 connection.Open()
245 End If
246 Dim cmd As New SqlCommand(strSQL, connection)
247 Dim myParameter As New SqlParameter("@fs", SqlDbType.Image)
248 myParameter.Value = fs
249 cmd.Parameters.Add(myParameter)
250 Try
251 Dim rows As Integer = cmd.ExecuteNonQuery
252 Return rows
253 Catch ex As Exception
254 Throw New Exception(ex.Message)
255 Finally
256 cmd.Dispose()
257 connection.Close()
258 End Try
259 End Function
260
261
262 ''' <summary>
263 ''' 執行查詢語句,返回DataSet
264 ''' </summary>
265 ''' <param name="SQLString">查詢語句</param>
266 ''' <returns>DataSet</returns>
267
268 Public Shared Function Query(ByVal SQLString As String) As DataSet
269 Dim connection As New SqlConnection(connectionString)
270 Dim ds As New DataSet
271 Try
272 connection.Open()
273 Dim myda As New SqlDataAdapter(SQLString, connection)
274 myda.Fill(ds)
275 Catch ex As Exception
276 Throw New Exception(ex.Message)
277 End Try
278 Return ds
279 End Function
280
281 #End Region
282
283 #Region "消息模塊"
284 'Public Shared Function Show(ByVal page As System.Web.UI.Page, ByVal msg As String)
285 ' page.RegisterStartupScript("message", "<script language='javascript' defer>alert('" + msg.ToString() + "');</script>")
286 'End Function
287 #End Region
288
289 #Region "執行帶參數的SQL語句"
290
291 Private Shared Sub PrepareCommand(ByRef cmd As SqlCommand, ByRef conn As SqlConnection, ByRef trans As SqlTransaction, ByRef cmdText As String, ByRef cmdParms As SqlParameter())
292 If conn.State = ConnectionState.Closed Then
293 conn.Open()
294 End If
295 cmd.Connection = conn
296 cmd.CommandText = cmdText
297 If Not trans Is Nothing Then
298 cmd.Transaction = trans
299 End If
300
301 cmd.CommandType = CommandType.Text
302 If Not cmdParms Is Nothing Then
303 For Each parm As SqlParameter In cmdParms
304 cmd.Parameters.Add(parm)
305 Next
306 End If
307 End Sub
308
309 Public Shared Function ExecuteSql(ByVal SQLString As String, ByVal ParamArray cmdParms As SqlParameter()) As Integer
310 Dim connection As New SqlConnection(connectionString)
311 If connection.State = ConnectionState.Closed Then
312 connection.Open()
313 End If
314 Dim trans As SqlTransaction = connection.BeginTransaction
315 Dim cmd As New SqlCommand
316 Try
317 PrepareCommand(cmd, connection, trans, SQLString, cmdParms)
318 Dim rows As Integer = cmd.ExecuteNonQuery()
319 cmd.Parameters.Clear()
320 trans.Commit()
321 Return rows
322 Catch ex As Exception
323 trans.Rollback()
324 Throw New Exception(ex.Message)
325 Finally
326 connection.Close()
327 cmd.Dispose()
328 End Try
329 End Function
330
331
332 '*
333 ' Dim parameters As OracleParameter() = {New OracleParameter("DPPM_", OracleType.Number), New OracleParameter("Issue_id_", OracleType.Number), New OracleParameter("code1_id_", OracleType.Number), New OracleParameter("defectcode_id_", OracleType.Number)}
334 ' parameters(0).Value = dppm
335 ' parameters(1).Value = issue_id
336 ' parameters(2).Value = code1_id
337 ' parameters(3).Value = defect_code_id
338 ' Return ITSC.DbHelperSQL.ExecuteSP("Updatecsm_issue_code", parameters)
339 '*'
340 Private Shared Sub PrepareCommandSP(ByVal cmd As SqlCommand, ByVal conn As SqlConnection, ByVal trans As SqlTransaction, ByVal cmdText As String, ByVal cmdParms As SqlParameter())
341 If conn.State <> ConnectionState.Open Then
342 conn.Open()
343 End If
344 cmd.Connection = conn
345 If Not trans Is Nothing Then
346 cmd.Transaction = trans
347 End If
348 cmd.CommandText = cmdText
349 cmd.CommandType = CommandType.StoredProcedure
350 If Not cmdParms Is Nothing Then
351 For Each parm As SqlParameter In cmdParms
352 cmd.Parameters.Add(parm)
353 Next
354 End If
355 End Sub
356
357
358 Public Shared Function ExecuteSP(ByVal SP As String, ByVal ParamArray cmdParms As SqlParameter()) As Integer
359 Dim connection As New SqlConnection(connectionString)
360 If connection.State = ConnectionState.Closed Then
361 connection.Open()
362 End If
363 Dim trans As SqlTransaction = connection.BeginTransaction()
364 Dim cmd As New SqlCommand
365 Try
366 PrepareCommandSP(cmd, connection, trans, SP, cmdParms)
367 Dim rows As Integer = cmd.ExecuteNonQuery()
368 cmd.Parameters.Clear()
369 trans.Commit()
370 Return rows
371 Catch ex As System.Data.SqlClient.SqlException
372 trans.Rollback()
373 Throw New Exception(ex.Message)
374 End Try
375 End Function
376
377
378 ''' <summary>
379 ''' 執行一條計算查詢結果語句,返回查詢結果(object)。
380 ''' </summary>
381 ''' <param name="SQLString">計算查詢結果語句</param>
382 ''' <returns>查詢結果(object)</returns>
383 Public Shared Function GetSingle(ByVal SQLString As String, ByVal ParamArray cmdParms As SqlParameter()) As Object
384 Dim connection As New SqlConnection(connectionString)
385 Dim cmd As New SqlCommand
386 Try
387 PrepareCommand(cmd, connection, Nothing, SQLString, cmdParms)
388 Dim obj As Object = cmd.ExecuteScalar()
389 cmd.Parameters.Clear()
390 If ([Object].Equals(obj, Nothing)) OrElse ([Object].Equals(obj, System.DBNull.Value)) Then
391 Return Nothing
392 Else
393 Return obj
394 End If
395 Catch e As System.Data.SqlClient.SqlException
396 Throw New Exception(e.Message)
397 End Try
398 End Function
399
400 ''' <summary>
401 ''' 执行查询语句,返回DataReader
402 ''' </summary>
403 ''' <param name="SQLString">查询语句</param>
404 ''' <param name="cmdParms">查询参数</param>
405 ''' <returns>DataReader</returns>
406 ''' <remarks>DataReader</remarks>
407 Public Shared Function ExecuteReader(ByVal SQLString As String, ByVal ParamArray cmdParms As SqlParameter()) As SqlDataReader
408 Dim connection As New SqlConnection(connectionString)
409 Dim cmd As New SqlCommand
410 Try
411 PrepareCommand(cmd, connection, Nothing, SQLString, cmdParms)
412 Dim myReader As SqlDataReader = cmd.ExecuteReader()
413 cmd.Parameters.Clear()
414 Return myReader
415 Catch e As System.Data.SqlClient.SqlException
416 Throw New Exception(e.Message)
417 End Try
418 End Function
419
420
421 ''' <summary>
422 ''' 執行查詢語句,返回DataSet
423 ''' </summary>
424 ''' <param name="SQLString">查詢語句</param>
425 ''' <returns>DataSet</returns>
426 Public Shared Function Query(ByVal SQLString As String, ByVal ParamArray cmdParms As SqlParameter()) As DataSet
427 Dim connection As New SqlConnection(connectionString)
428 Dim cmd As New SqlCommand
429 PrepareCommand(cmd, connection, Nothing, SQLString, cmdParms)
430 Dim Myda As New SqlDataAdapter(cmd)
431 Dim ds As New DataSet
432 Try
433 Myda.Fill(ds, "ds")
434 cmd.Parameters.Clear()
435 Catch ex As System.Data.SqlClient.SqlException
436 Throw New Exception(ex.Message)
437 End Try
438 Return ds
439 End Function
440
441 ''' <summary>
442 ''' 執行多條SQL語句,實現資料庫事務。
443 ''' </summary>
444 ''' <param name="SQLStringList">SQL語句的哈希表(key為sql語句,value是該語句的OracleParameter[])</param>
445 Public Shared Sub ExecuteSqlTran(ByVal SQLStringList As Hashtable)
446 Dim conn As New SqlConnection(connectionString)
447 conn.Open()
448 Dim trans As SqlTransaction = conn.BeginTransaction()
449 Dim cmd As New SqlCommand
450 Try
451 '迴圈
452 For Each myDE As DictionaryEntry In SQLStringList
453 Dim cmdText As String = myDE.Key.ToString()
454 Dim cmdParms As SqlParameter() = DirectCast(myDE.Value, SqlParameter())
455 PrepareCommand(cmd, conn, trans, cmdText, cmdParms)
456 Dim val As Integer = cmd.ExecuteNonQuery()
457 cmd.Parameters.Clear()
458 trans.Commit()
459 Next
460 Catch
461 trans.Rollback()
462 Throw
463 End Try
464 End Sub
465 #End Region
466
467 #Region "存儲過程操作"
468
469 ''' <summary>
470 ''' 執行存儲過程
471 ''' </summary>
472 ''' <param name="storedProcName">存儲過程名</param>
473 ''' <param name="parameters">存儲過程參數</param>
474 ''' <returns>OracleDataReader</returns>
475 Public Shared Function RunProcedure(ByVal storedProcName As String, ByVal parameters As IDataParameter()) As SqlDataReader
476 Dim connection As New SqlConnection(connectionString)
477 Dim returnReader As SqlDataReader
478 connection.Open()
479 Dim command As SqlCommand = BuildQueryCommand(connection, storedProcName, parameters)
480 command.CommandType = CommandType.StoredProcedure
481 returnReader = command.ExecuteReader()
482 Return returnReader
483 End Function
484
485 ''' <summary>
486 ''' 執行存儲過程
487 ''' </summary>
488 ''' <param name="storedProcName">存儲過程名</param>
489 ''' <param name="parameters">存儲過程參數</param>
490 ''' <param name="tableName">DataSet結果中的表名</param>
491 ''' <returns>DataSet</returns>
492 Public Shared Function RunProcedure(ByVal storedProcName As String, ByVal parameters As IDataParameter(), ByVal tableName As String) As DataSet
493 Dim connection As New SqlConnection(connectionString)
494 Dim dataSet As New DataSet
495 connection.Open()
496 Dim sqlDA As New SqlDataAdapter
497 sqlDA.SelectCommand = BuildQueryCommand(connection, storedProcName, parameters)
498 sqlDA.Fill(dataSet, tableName)
499 connection.Close()
500 Return dataSet
501 End Function
502 ''' <summary>
503 ''' 構建 OracleCommand 物件(用來返回一個結果集,而不是一個整數值)
504 ''' </summary>
505 ''' <param name="connection">資料庫連接</param>
506 ''' <param name="storedProcName">存儲過程名</param>
507 ''' <param name="parameters">存儲過程參數</param>
508 ''' <returns>OracleCommand</returns>
509 Private Shared Function BuildQueryCommand(ByVal connection As SqlConnection, ByVal storedProcName As String, ByVal parameters As IDataParameter()) As SqlCommand
510 Dim command As New SqlCommand(storedProcName, connection)
511 command.CommandType = CommandType.StoredProcedure
512 For Each parameter As SqlParameter In parameters
513 command.Parameters.Add(parameter)
514 Next
515 Return command
516 End Function
517
518 ''' <summary>
519 ''' 執行存儲過程,返回影響的行數
520 ''' </summary>
521 ''' <param name="storedProcName">存儲過程名</param>
522 ''' <param name="parameters">存儲過程參數</param>
523 ''' <param name="rowsAffected">影響的行數</param>
524 ''' <returns></returns>
525 Public Shared Function RunProcedure(ByVal storedProcName As String, ByVal parameters As IDataParameter(), ByRef rowsAffected As Integer) As Integer
526 Dim connection As New SqlConnection(connectionString)
527 Dim result As Integer
528 connection.Open()
529 Dim command As SqlCommand = BuildIntCommand(connection, storedProcName, parameters)
530 rowsAffected = command.ExecuteNonQuery()
531 result = CInt(command.Parameters("ReturnValue").Value)
532 'Connection.Close();
533 Return result
534 End Function
535
536 ''' <summary>
537 ''' 創建 OracleCommand 物件實例(用來返回一個整數值)
538 ''' </summary>
539 ''' <param name="storedProcName">存儲過程名</param>
540 ''' <param name="parameters">存儲過程參數</param>
541 ''' <returns>OracleCommand 物件實例</returns>
542 Private Shared Function BuildIntCommand(ByVal connection As SqlConnection, ByVal storedProcName As String, ByVal parameters As IDataParameter()) As SqlCommand
543 Dim command As SqlCommand = BuildQueryCommand(connection, storedProcName, parameters)
544 command.Parameters.Add(New SqlParameter("ReturnValue", SqlDbType.Int, 4, ParameterDirection.ReturnValue, False, 0, _
545 0, String.Empty, DataRowVersion.[Default], Nothing))
546 Return command
547 End Function
548 #End Region
549 End Class
550 'End Namespace
DBHelper
五、在BLL中写业务类 stu
1 Public Class stu
2 Function test() As DataSet
3
4 ' Dim dt As System.Data.DataTable
5 Dim ds As DataSet
6 ds = DAL.DBHelper.Query("select * from reg") '利用dbhelper中的查询方法 查询出结果 给dataSet
7 test = ds ' 返回结果 类似return
8 End Function
9
10 End Class
stu类
六、创建asp主页 index.aspx (在web.config中设置主页) 拖一个gridview控件用于显示数据
F7进入index.aspx.vb 编辑
1 Public Class index
2 Inherits System.Web.UI.Page
3
4 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
5 Dim st As New BLL.stu '注意new 实例化bll中的stu类
6 Dim para As DataSet
7
8 para = st.test() '返回dataset结果 类型是dataset
9 GridView1.DataSource = para '把结果给gridview
10 GridView1.DataBind() '绑定给gridview
11
12
13 End Sub
14
15 End Class
index.aspx.vb
1 <?xml version="1.0" encoding="utf-8"?>
2
3
4 <configuration> <!--<configuration>节根元素,其它节都是在它的内部.-->
5
6 <connectionStrings>
7 <add name="ApplicationServices"
8 connectionString="data source=.\SQLEXPRESS;Integrated Security=SSPI;AttachDBFilename=|DataDirectory|\aspnetdb.mdf;User Instance=true"
9 providerName="System.Data.SqlClient" />
10 </connectionStrings>
11
12 <system.web>
13 <compilation debug="true" strict="false" explicit="true" targetFramework="4.0" />
14
15 <authentication mode="Forms">
16 <forms loginUrl="~/Account/Login.aspx" timeout="2880" />
17 </authentication>
18
19 <membership>
20 <providers>
21 <clear/>
22 <add name="AspNetSqlMembershipProvider" type="System.Web.Security.SqlMembershipProvider" connectionStringName="ApplicationServices"
23 enablePasswordRetrieval="false" enablePasswordReset="true" requiresQuestionAndAnswer="false" requiresUniqueEmail="false"
24 maxInvalidPasswordAttempts="5" minRequiredPasswordLength="6" minRequiredNonalphanumericCharacters="0" passwordAttemptWindow="10"
25 applicationName="/" />
26 </providers>
27 </membership>
28
29 <profile>
30 <providers>
31 <clear/>
32 <add name="AspNetSqlProfileProvider" type="System.Web.Profile.SqlProfileProvider" connectionStringName="ApplicationServices" applicationName="/"/>
33 </providers>
34 </profile>
35
36 <roleManager enabled="false">
37 <providers>
38 <clear/>
39 <add name="AspNetSqlRoleProvider" type="System.Web.Security.SqlRoleProvider" connectionStringName="ApplicationServices" applicationName="/" />
40 <add name="AspNetWindowsTokenRoleProvider" type="System.Web.Security.WindowsTokenRoleProvider" applicationName="/" />
41 </providers>
42 </roleManager>
43
44 </system.web>
45
46
47 <!--设置web服务-->
48 <system.webServer>
49 <defaultDocument>
50 <files>
51 <clear />
52 <add value="index.aspx" />
53 <!--<add value="Default.htm" />
54 <add value="Default.asp" />
55 <add value="index.htm" />
56 <add value="index.html" />-->
57 </files>
58 </defaultDocument>
59 <modules runAllManagedModulesForAllRequests="true"/>
60 </system.webServer>
61 </configuration>
web.config
现在运行