<% response.charset="utf-8" %> <% call SiteInfo dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mHomepage,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP call MemInfo() %> My project
<% dim rs,sql,project_hover_1,project_hover_2,project_hover_3,project_hover_4,project_hover_5,project_hover_6 set rs = server.createobject("adodb.recordset") sql="select top 1 * from NwebCn_ProjectView where sortid="&request.QueryString("sortid")&" order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write "No details" else if rs("stateID")=1 then project_hover_1="num_hover" else project_hover_1="num_visited" end if if rs("stateID")=2 then project_hover_2="num_hover" else project_hover_2="num_visited" end if if rs("stateID")=3 then project_hover_3="num_hover" else project_hover_3="num_visited" end if if rs("stateID")=4 then project_hover_4="num_hover" else project_hover_4="num_visited" end if if rs("stateID")=5 then project_hover_5="num_hover" else project_hover_5="num_visited" end if if rs("stateID")=6 then project_hover_6="num_hover" else project_hover_6="num_visited" end if response.write "
    " response.write "
  • Project registration
  • " response.write "
  • 1

  • " response.write "
" response.write "
    " response.write "
      " response.write "
    • Sample order
    • " response.write "
    • 2

    • " response.write "
    " response.write "
      " response.write "
        " response.write "
      • Sample test and feedback
      • " response.write "
      • 3

      • " response.write "
      " response.write "
        " response.write "
          " response.write "
        • Mass production order
        • " response.write "
        • 4

        • " response.write "
        " response.write "
          " response.write "
            " response.write "
          • Cargo delivery
          • " response.write "
          • 5

          • " response.write "
          " response.write "
            " response.write "
              " response.write "
            • Order feedback
            • " response.write "
            • 6

            • " response.write "
            " end if rs.close set rs=nothing %>
            <%=WebContent()%>

            Project status

            " method="post" id="myform">
            Status:
            More Details:
            Security code:
            <% sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_Members where MemName='"&session("MemName")&"'" rs.open sql,conn,1,1 if rs.eof then response.write "No details" else MemID=rs("ID") mMemName=rs("MemName") mGroupIdName=GroupName(rs("GroupID")) mRealName=rs("RealName") mSex=rs("Sex") mQusetion=rs("Question") mCompany=rs("Company") mAddress=rs("Address") mZipCode=rs("ZipCode") mTelephone=rs("Telephone") mFax=rs("Fax") mMobile=rs("Mobile") mEmail=rs("Email") mHomePage=rs("HomePage") mAddTime=rs("AddTime") mLoginTimes=rs("LoginTimes") mLastLoginTime=rs("LastLoginTime") mLastLoginIP=rs("LastLoginIP") end if rs.close set rs=nothing end sub function GroupName(GroupID) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_MemGroup where GroupID='"&GroupID&"'" rs.open sql,conn,1,1 GroupName=rs("GroupName") rs.close set rs=nothing end function %> <% function WebContent() dim mrs,msql set mrs = server.createobject("adodb.recordset") msql="select * from NwebCn_Members where MemName='"&session("MemName")&"'" mrs.open msql,conn,1,1 if not mrs.eof then MemID=mrs("ID") end if dim idCount'记录总数 dim pages'每页条数 pages=20 dim pagec'总页数 dim page'页码 page=clng(request("Page")) dim pagenc'每页显示的分页页码数量=pagenc*5+1 pagenc=5 dim pagenmax'每页显示的分页的最大页码 dim pagenmin'每页显示的分页的最小页码 dim pageprevious'上一相邻的页码 dim pagenext '下一相邻的页码 '重置数据表名 dim datafrom'数据表名 datafrom="NwebCn_ProjectView " dim datawhere'数据条件 datawhere="where sortid="&request.QueryString("sortid")&" " dim sqlid'本页需要用到的id dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数 PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis'排序的语句 asc,desc taxis="order by id asc " dim i'用于循环的整数 '获取记录总数 dim rs,sql set rs = server.createobject("adodb.recordset") sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") '获取记录总数 if(idcount>0) then'如果记录总数=0,则不处理 if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1 pagec=int(idcount/pages)'获取总页数 else pagec=int(idcount/pages)+1'获取总页数 end if '获取本页需要用到的id============================================ '读取所有记录的id数值,因为只有id所以速度很快 sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages '每页显示记录数 if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next '获取本页需要用到的id结束============================================ end if if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理 '用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快 sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while not rs.eof '填充数据到表格 response.write "" response.write "" if rs("MemName")<>"PERTIE" then response.write ""&rs("MemName")&"" else response.write ""&rs("MemName")&"" end if response.write "" response.write ""&rs("state")&" - "&rs("AddTime")&"

            "&ReStrReplace(rs("content"))&"" response.write "" rs.movenext wend else end if rs.close set rs=nothing mrs.close set mrs=nothing end function %>