公文管理系统.docx

〈asp：

LinkButtonid="LBtnHome"style="Z-INDEX:

102;LEFT：

256px;

POSITION:

absolute;TOP：

8px”runat=”server"

Width=”48px"OnClick=”LBtnHome_Click"〉首页〈/asp:

LinkButton〉

LinkButtonid="LBtnSend"style="Z-INDEX：

103；LEFT:

544px；POSITION:

absolute;

TOP：

8px”runat="server"Width=”72px"OnClick="LBtnSend_Click"〉

发文处理

LinkButton>

LinkButtonid=”LBtnReceive"style="Z-INDEX:

104;LEFT:

616px;

POSITION：

absolute;TOP:

8px"runat=”server"

Width=”72px”OnClick=”LBtnReceive_Click”>收文处理

LinkButton〉

〈asp:

LinkButtonid="LBtnMgr”style="Z—INDEX:

105；LEFT：

688px；POSITION:

absolute；

TOP:

8px"runat=”server"Width=”88px"OnClick=”LBtnMgr_Click”>

系统维护〈/asp：

LinkButton>

〈asp：

LinkButtonid="LBtnSBrowse"style="Z-INDEX：

106;LEFT:

320px；

POSITION：

absolute；TOP:

8px"Width=”72px”runat=”server”

OnClick=”LBtnSBrowse_Click”>发文浏览〈/asp:

LinkButton〉

LinkButtonid=”LBtnRBrowse”style=”Z—INDEX:

107；LEFT:

392px;

POSITION:

absolute；TOP:

8px”Width=”72px”runat="server”

OnClick="LBtnRBrowse_Click”〉收文浏览〈/asp：

LinkButton〉

〈asp:

LinkButtonid=”LBtnQUery”style=”Z-INDEX:

108;LEFT：

472px;

POSITION：

absolute;TOP：

8px”runat="server”Width=”72px”

OnClick="LBtnQuerye_Click”>文件查询〈/asp:

LinkButton>〈/DIV>

（2）数据库操作文件

–由于多个功能模块都要执行数据库操作,因此将数据库操作功能设计为一个共享文件Db。

inc，其内容如下：

〈%＠ImportNamespace=”System.Data”%〉

〈％@ImportNamespace="System。

Data。

OleDb"％>

〈ScriptLanguate="VB”Runat=”Server”>

’创建数据集对象，strSQL为SQL语句，FileName为数据库文件名

‘TableName为数据表名称

FunctionCreateDataSet（strSQLAsString，FileNameAsString,TableNameAsString）AsDataSet

DimconnAsNewOleDbConnection（）

DimcmdAsNewOleDbCommand（）

conn.ConnectionString="Provider=Microsoft.Jet.OLEDB。

4。

0;DataSource="＆Server.MapPath（FileName）

conn。

Open（）

cmd.Connection=conn

cmd.CommandText=strSQL

DimobjAdptAsNewOleDbDataAdapter（cmd）

DimDSAsNewDataSet（）

objAdpt.Fill（DS，TableName）

CreateDataSet=DS

conn.Close（）

EndFunction

〈/Script〉

（3）首页

首页提供用户登录界面。

当用户成功登录后，用Session变量记录其用户信息，包括用户名、使用权限等。

文件名为Webmain。

aspx.其中,以下声明为引用用户空间oamenu:

<％@RegisterTagPrefix="uc1”TagName="oamenu”Src=”oamenu。

ascx”％>

首页中还包含一个标识为“iframeMain”的框架，它的src属性为Login。

aspx，即在该框架中加载Login.aspx用户登录页面。

文件Webmain.aspx

<%@RegisterTagPrefix=”uc1"TagName="oamenu”Src=”oamenu.ascx”％〉

〈Html>〈Head〉

〈Style〉A：

link｛COLOR：

#0066cc；TEXT-DECORATION：

none}

A:

hover｛COLOR:

#cc0000；TEXT—DECORATION：

none｝

A:

visited{COLOR：

#3333cc；TEXT-DECORATION：

none｝

〈/Style〉〈/Head〉

104;LEFT：

72px;WIDTH:

624px;

POSITION：

absolute;TOP:

64px；HEIGHT:

338px”name=”iframeMain"align=”middle”

src="Login.aspx”frameBorder=”no”scrolling="auto”runat=”server”>

oamenuid="Oamenu1”runat=”server”〉〈/uc1:

oamenu〉

〈/Body>〈/Html〉

Login。

aspx内容：

〈！

-—#includeFile="Db.inc"-->

SubIBtnLogin_Click（ByValsenderAsSystem。

Object，ByValeAsSystem。

Web。

UI。

ImageClickEventArgs）

DimconnAsNewSystem.Data.OleDb.OleDbConnection

DimcmdAsNewSystem。

Data.OleDb.OleDbCommand

conn。

ConnectionString="Provider=Microsoft.Jet.OLEDB。

4.0；DataSource="&Server。

MapPath（”oadata。

MDB"）

cmd.Connection=conn

cmd。

CommandText=”select*fromuserpasswhereuserid='”&Trim（TxtID.Text）＆”’andpassword=’"&Trim（TxtPass.Text）&”'"

conn。

Open（）

DimreaderAsOleDb。

OleDbDataReader=cmd.ExecuteReader

Ifreader.Read（）Then

Session（"userid"）=Trim（reader（”userid"））

Session（”username"）=Trim（reader（”username”））

Session（”userkey"）=Trim（reader（"userkey”））

Session（"partid”）=Trim（reader（"partid"））

Response。

Redirect（”LoginSuccess。

aspx”）

Else

Session（”userid"）=Nothing

Session（"username"）=Nothing

Session（"userkey"）=Nothing

Session（"partid"）=Nothing

EndIf

conn.Close（）

EndSub

〈/Script〉

〈Html>〈Head>〈Title>Login〈/Title〉

gif”>

inline;Z—INDEX：

101；LEFT：

176px;WIDTH:

64px;POSITION：

absolute；TOP:

96px；HEIGHT:

24px”ms_positioning="FlowLayout"〉用户名

〈Asp：

TextBoxid="TxtID”style=”Z-INDEX：

102；LEFT：

248px;POSITION:

absolute；TOP：

96px"runat="server"Width=”104px">〈/asp:

TextBox〉

〈Divstyle="DISPLAY:

inline;Z-INDEX:

103;LEFT：

176px;WIDTH：

64px；POSITION：

absolute；TOP：

144px；HEIGHT:

24px"ms_positioning=”FlowLayout”〉密＆nbsp；码

〈asp：

TextBoxid=”TxtPass"style="Z-INDEX:

104；LEFT:

248px；POSITION：

absolute；TOP：

144px"runat="server"Width="104px”TextMode=”Password”>

TextBox〉

ImageButtonid="IBtnLogin”style=”Z—INDEX：

105；LEFT:

240px；POSITION：

absolute；TOP:

184px”runat=”server"Width=”64px”Height=”24px”ImageUrl=”img\an.gif"OnClick="IBtnLogin_Click”〉

ImageButton>

〈Imgstyle="Z-INDEX:

107；LEFT:

64px;WIDTH：

424px；POSITION:

absolute；TOP：

216px；HEIGHT:

32px”height="32”alt=""src=”img\flw_h。

gif"width=”424”>

108；LEFT：

400px；WIDTH：

48px;POSITION：

absolute；TOP:

128px；HEIGHT:

48px”height="48”alt=”"src=”img\Funface。

gif”width="48">〈/Form〉〈/Body〉

用户登陆成功后，在框架iframemain中加载LoginSuccess。

aspx页面。

这是一个简单的网页，仅显示一行文字和一幅图像，此时用户就可使用其权限操作的功能了。

（4）发文浏览

首先分页列出发文的编号和发文日期，其中编号为超链接按钮，当用户单击某个发文编号后，将显示该发文的详情，此时用户可通过单击“阅文”按钮查看该发文的全文.在文本框中可输入反馈意见，单击“提交”按钮将用户信息及反馈意见等写入readlog表。

1）DgSummary：

DataGrid控件,显示文档摘要信息（编号和日期）.

2）Dlwd：

DataList控件，显示文档详细内容。

文件Rbrowse。

aspx（略去界面部分）：

<％＠RegisterTagPrefix="uc1”TagName="oamenu”Src=”oamenu.ascx"％〉

<！

——＃includeFile=”Db