go.asp

来自「还是同学录 功能较为的简单点 挺好用的」· ASP 代码 · 共 39 行

<%
  '################## 暂缓 上一人、下一人 功能的开发 ##################
%>
<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<%
  dim id
  id=request("id")
  if member="" then
      founderr=true
      errinfo="<li>你还没有登陆，请先 <a href='login.asp'>登陆</a><br>"
  end if
  if id="" then
      founderr=true
      errinfo=errinfo&"<li>联系人的ID不能为空<br>"
  elseif isnumeric(id)=false then
      founderr=true
      errinfo=errinfo&"<li>联系人的ID参数有误<br>"
  else
      set rs=conn.execute("select id from address_list where user='"&member&"' and id="&id&"")
      if rs.eof and rs.bof then
          founderr=true
          errinfo=errinfo&"<li>没有该ID的联系人<br>"
      end if
      set rs=nothing
  end if
%>
<title><%=sitename%></title>
<%
  if founderr=true then
      call errweb()
  else


  end if

  conn.close
  set conn=nothing
%>