ASP同学录设计asp+sql(十二)

ASP同学录设计asp+sql(十二)          
  wm=Request.Form("wm")                
  layer=2                                          
  parent_id=bbs_id                             
  

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

首页 上一页 9 10 11 12 13 14 下一页 尾页 12/14/14

ASP同学录设计asp+sql(十二)由免费论文网（www.jaoyuw.com）会员上传。