<% memberid = CheckUserID() if memberid = 0 then Response.Redirect userLogin end if Set cnConn = Server.CreateObject("ADODB.Connection") Set rsTable = Server.CreateObject("ADODB.Recordset") cnConn.Open strCONNECT actMsg = "点击软件名称可修改.." %>

会员功能 <%= ShowUserMenu()%>  软件搜索

您的位置：首页＞免费软件＞我上传的软件 <% if bSAFILEUP then set objFile=Server.CreateObject("SoftArtisans.FileManager") else set objFile=Server.CreateObject("Scripting.FileSystemObject") end if strSql = "SELECT did,dname,dver,dwhen,dlook,ddown,dshow,kvalue,smemo,scolor FROM "&tabPRE&"downs,"&tabPRE&"kinds,"&tabPRE&"shows WHERE dkind = kid AND dshow = sid AND duser="&memberid&" ORDER BY dwhen DESC" rsTable.Open strSql,cnConn while not rsTable.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" strDoc=Server.MapPath(strROOT&"/"&rsTable("kvalue")&"/"&rsTable("did")&".htm") if objFile.FileExists(strDoc) then Response.Write "" else Response.Write "" end if Response.Write "" Response.Write "" rsTable.MoveNext wend rsTable.Close %>  我上传的软件 - <%= actMsg%> "&rsTable("dname")&"("&rsTable("dver")&") "&rsTable("dwhen")&" "&rsTable("dlook")&"/"&rsTable("ddown")&"  "&rsTable("smemo")&"  "&objFile.GetFile(strDoc).DateLastModified&" 未发布 收藏

<% cnConn.Close Set cnConn=Nothing Set rsTable=Nothing %>