<%@ LANGUAGE="VBSCRIPT"%> <%option explicit%> <% Dim rsTest,strSql,i,reurl,uid,c i=0 c = request("c") uid = request("uid") If request.cookies("cypress")("user_id")="" And uid="" Then response.write "" else If c="y" then reurl = "http://www.21ic.com/cypress/images/yybj.doc" ElseIf c="s" then reurl = "mailto:baolina@21ic.com?subject=来自网友" & uid & "的应用笔记&body=请填写具体email内容" Else response.write "" response.end End if set rsTest=server.CreateObject("ADODB.RecordSet") ConnectDatabase strSQL = "select * from applycount where bbs_userid=" & uid rsTest.CursorLocation=3 rsTest.open strSQL,myconn,1,3 if rsTest.bof or rsTest.eof Then rsTest.addnew rsTest("app_company") = "cypress" rsTest("bbs_userid") = uid rsTest("downnum") = 1 rsTest("submitnum") = 0 rsTest("examined")= 0 rsTest("lasttime") = Date + time rsTest.update Else If c="y" then rsTest("downnum")=rsTest("downnum")+1 ElseIf c="s" then rsTest("submitnum")=rsTest("submitnum")+1 End If rsTest.update end If rsTest.close Set rsTest=Nothing CloseDatabase 'response.write "" If c="s" Then response.write "如未成功打开发邮件窗口，请将邮件发到 baolina@21ic.com" ElseIf c="y" then response.redirect reurl End if 'response.redirect reurl End If %>