数据库设计以及源代码
系统建设详细设计
1.数据库设计
管理员用户表信息:
学生用户表:
学生信息表:
班级文本50 所在班级
专业文本50 所学专业
2 系统程序文件设计与编写
与数据库连接的代码:
<% db="message.mdb"
set Conn=server.createobject("adodb.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)
%>
登陆界面代码:
代码为:
<%
if request("Submit")<>"" then
set rs=server.createobject("adodb.recordset")
sql="SELECT username,password from users where username='"&request("username")&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
msg="错误:用户名不存在"
else
if rs("password")=request("password") then
Session("admin")=true
response.redirect "index.asp?users=admin"
else
msg="错误:密码不正确"
end if
end if
rs.close
set rs=nothing
Conn.close
Set conn = Nothing
end if%>
密码:
用户类型:
显示信息:
代码为:
限”href=”post.asp”>[添加][管理][退出]
<%users = Request(“users”)
If request(“PageNo”)=”” then
PageNo=1
Else
PageNo=int(request(“PageNo”))
End If
sql=”SELECT * from liuyan order by ID desc”
set rs=server.createobject(“adodb.recordset”)
rs.open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs.Pagesize=3
rs.absolutepage=PageNo
x = 0
For x = 1 to rs.Pagesize
if x mod 2 then
tr_color=”#EBEBEB”
else
tr_c olor=”#ffffff”
end if
If rs.eof then
Exit For
Else
if isNull(Rs(“Dateandtime”)) then
strDateandtime = “”
else
strDateandtime = Cstr(Rs(“Dateandtime”))
end if
‘Username,Email,Content,Sex,Dateandtime
Response.Write “
Response.Write “
Response.Write “
Response.Write “
‘修改删除链接
if us ers = “admin” then
Response.Write “
else
Response.Write “
end if
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “
Response.Write “”
Response.Write “
删除 | ”
” |
rs.MoveNext
End If
Next
.
end if
if rs.recordcount > 0 then
<%for i=1 to rs.pagecount
if pageno <> I then
Response.Write “”&i&” ”
else
Response.Writ e “” & I & “ ”
end if
next%>
Else
End if
<%rs.close
set rs=nothing
Conn.close
Set conn = Nothing%>