网页设计通用模块（Web design universal module）.docVIP

网页设计通用模块（Web design universal module） 1.ConnDB.aspx ConnDB.asps function is to implement the connection to the database, because in many pages there is a connection database operation, so save it in the file ConnDB.asp, so you can avoid repeated programming. The code for ConnDB.asp is as follows: Dim Conn Dim ConnStr Set Conn=server.createobject (adodb.connection), ConnStr=, driver={SQL Server}, server= (local), UID=sa, PWD=yourpassword, Database=news Conn.Open ConnStr % You can access the database as a header file in the file. The code follows: --#include File= ConnDB.aspx -- ! 2.IsAdmin.aspx Since some of the features in this instance are available only to Admin users, it is necessary to determine whether the user is Admin before entering these pages. The function of IsAdmin.aspx is to determine whether the current user is Admin; if not, the interrupt is executed; if it is, no action is performed and the web page containing it is entered directly. The code for IsAdmin.asp is as follows: If Session (UserName) Admin Then Response.Write (not Admin user, without this permission) Response.End End If % Refer to this file as the header file in the file. The code is as follows: --#include File= IsAdmin.asp -- ! 3.IsAuthor.aspx In modifying and deleting news, other users can only modify the news they created, except that the Admin user has all the permissions. So when you modify and delete news, you need to determine whether the current user is Admin or the author of the news. IsAuthor.aspx can implement this function, the code is as follows: If Session (UserName) Admin Then NewsId = Request (Id) read the news based on the news number Set rsNews = Server.CreateObject (ADODB.RecordSet) SQL = SELECT * FROM, WHERE, Id= Trim (NewsId) News Set rsNews=Conn.Execute (SQL) Set Rs=conn.Execute (SQL) If rsNews.EOF Then Response.Write specifies that the message does not exist Response.End Else judgment of user rights, whether can maintain news, the administrator can edit all