child=0
hits=0
ip=Request.ServerVariables("remote_addr")
Dim sql,svalues
sql = "Insert Into bbs(title,layer,parent_id,child,hits,ip,wm,submit_date"
svalues = "Values('" & title & "'," & layer & "," & parent_id & "," &child & "," & hits & ",'" & ip & "','" & wm & "','" & date() & "'"
If body<>"" Then
sql = sql & ",body"
svalues = svalues & "," & "'" & body & "'"
End If
sql = sql & ") " & svalues & ")"
db.Execute(sql)
sql="Update bbs Set child=child+1 Where bbs_id=" & bbs_id
db.Execute(sql)
db.Close
Response.Redirect "brows.asp?bbs_id=" & bbs_id
End If
%>
</tr>
</table>
</form>
</body>
</html>
5.2.4 一些主要页面代码分析
我的档案
页面示图
用户登录进入首先看到的就是自己的基本信息
页面代码分析：
<%
dim yhmc,mm,yhid
yhmc=session("yhm")
mm=session("mm")
yhid=session("yhmc_id")
if yhmc=""or mm="" then
response.redirect"../default.asp"
else
dim db
set db=server.createobject("adodb.connection")
db.open "driver={microsoft access driver (*.mdb)};dbq=" & server.MapPath(".../data/yhzc.mdb")
end if
%>
校友列表页面示图
可以通过链接进入同学录的校友信息页面
代码分析
<%
dim db
set db=server.createobject("adodb.connect
