<% 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 %>

会员功能 <%= ShowUserMenu()%>  本站申明 我们所刊载的所有软件均为共享、试用或免费，是为了学习和借鉴之用，其版权归其作者所有。如有异议，请联系我们，我们立即删除。 软件上传后，不是马上发布成页面，需经我们编辑查阅并通过；同时，我们保留最后的部分修改权，如其中的错别字，段落格式等。  软件搜索

您的位置：首页＞免费软件＞推荐上传软件  添加软件 <% if Request.QueryString("act")="add" then dname = Request("dname") dver = Request("dver") dsite = Request("dsite") dsiteurl = Request("dsiteurl") dmemo = Request("dmemo") dkey = Request("dkey") dsize = Request("dsize") dauthor = Request("dauthor") dkind = Request("dkind") dtype = Request("dtype") dos = Request("dos") dvalue = Request("dvalue") dlink = Request("dlink") dother = Request("dother") dotherurl = Request("dotherurl") dvalue = Request("dvalue") dpic = Request("dpic") if dname<>"" and dver<>"" and dsite<>"" and dsiteurl<>"" and dmemo<>"" and dkey<>"" then did=Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now) dmemo=Replace(dmemo,Chr(39),"''") if dauthor="" then dauthor="不详" if not memberid > 0 then memberid = 0 strSql="INSERT INTO "&tabPRE&"downs (did,dkind,dtype,dos,dname,dver,dlook,ddown,dwhen,dvalue,dsize,dauthor,dlink,dsite,dsiteurl,dother,dotherurl,dmemo,dkey,dpic,dshow,duser,dlast) VALUES ("&did&","&dkind&","&dtype&","&dos&",'"&dname&"','"&dver&"',1,1,"&unixNow&","&dvalue&","&dsize&",'"&dauthor&"','"&dlink&"','"&dsite&"','"&dsiteurl&"','"&dother&"','"&dotherurl&"','"&dmemo&"','"&dkey&"','"&dpic&"',0,"&memberid&","&unixNow&")" cnConn.Execute strSql if cnConn.Errors.Count>0 then for each errSoft in cnConn.Errors Response.Write errSoft.Description next else strMSG="恭喜，软件添加成功，请继续添加 ..." dname = "" dver = "" dsite = "" dsiteurl = "" dmemo = "" end if else strMSG = "对不起，关键数据要填写 ..." end if end if %> <%=strMSG%> <% strSQL = "SELECT kid,kname FROM "&tabPRE&"kinds" rsTable.Open strSQL,cnConn While NOT rsTable.EOF if Cstr(rsTable("KID"))=Cstr(dkind) then response.write "" & rsTable("kname") & "" else response.write "" & rsTable("kname") & "" end if rsTable.MoveNext Wend rsTable.Close %> 软件名称： 软件版本： 资料类型： <% strSQL = "SELECT tid,tname FROM "&tabPRE&"types" rsTable.Open strSQL, cnConn While NOT rsTable.EOF if Cstr(rsTable("tid"))=Cstr(dtype) then response.write "" & rsTable("tname") & "" else response.write "" & rsTable("tname") & "" end if rsTable.MoveNext Wend rsTable.Close %> 使用平台： <% strSQL = "SELECT oid,oname FROM "&tabPRE&"os" rsTable.Open strSQL, cnConn While NOT rsTable.EOF if Cstr(rsTable("OID"))=Cstr(dos) then response.write "" & rsTable("oname") & "" else response.write "" & rsTable("oname") & "" end if rsTable.MoveNext Wend rsTable.Close %> 软件评分： <% tmpStr="★" for i=1 to 5 if Cstr(i)=Cstr(dvalue) then response.write ""&tmpStr&"" else response.write ""&tmpStr&"" end if tmpStr=tmpStr&"★" next %> 软件大小： KB 关键字：可以设定多个，用“,“分割 发布作者：* 作者连接：* 下载地址： 下载连接： 其他地址：* 其他连接：* 预览图片：* 软件说明： <%=dmemo%>

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