<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Response.cachecontrol="no-cache" Response.addheader "pragma","no-cache" Response.Expires=-1 %> <% USign = "uContributionMain" sign = "add" ifDispSch = "style=""display:none;""" Id = FunIfInt(Request("Id")) TypeId1 = FunIfInt(Request("TypeId1")) TypeId2 = FunIfInt(Request("TypeId2")) Call SubOpenConn() '本頁鏈接的后綴 UrlParameter = "TypeId1="& TypeId1 &"&TypeId2=" & TypeId2 '本頁完整地址(缺Pages) Comurl = ChComurl("../../HdApp/HdCtb/HdUserCtbContributionAdd.php?"&UrlParameter) Call SubIfUserLogin(Comurl) ClassName = "我要投稿" ClassContent = "請填寫投稿基本信息并上傳WORD文檔" if CksUsrId = 0 then CksUsrId = -1 end if 'SQL語句需要的字段 FieldStr = "*" SchDisp = " style="" display:none;""" QuerySql = "Select " & FieldStr & " from CtbContributionTopic where UserId = "& CksUsrId &" and Id = " & Id Set Rs=Server.Createobject("Adodb.Recordset") Rs.open QuerySql,Conn,1,1 If Rs.Eof Then CName2 = "投稿" TimeStr = Now() Else ShenheState = Rs("ShenheState") if ShenheState > 5 then Call SubCloseObj(Rs) Call SubCloseConn() Response.Redirect("HdUserCtbContributionDisp.php?Id="&Id) Response.End() end if CName2 = "編輯" Text1 = FunUnCheckStr(Rs("Text1")) Text2 = FunUnCheckStr(Rs("Text2")) Text3 = FunUnCheckStr(Rs("Text3")) Text4 = FunUnCheckStr(Rs("Text4")) Text5 = FunUnCheckStr(Rs("Text5")) Text6 = FunUnCheckStr(Rs("Text6")) Number1 = Rs("Number1") Number2 = Rs("Number2") Number3 = Rs("Number3") Number4 = Rs("Number4") AddTime = FunUnCheckStr(Rs("AddTime")) TypeId1 = Rs("TypeId1") TypeId2 = Rs("TypeId2") D_Picture = FunUnCheckStr(Rs("D_Picture")) TASql = "Select TextArea1,TextArea2,TextArea3,TextArea4,D_OriginalFileName,D_SaveFileName,D_SavePathFileName from CtbContributionDetail where CId = " & Id Set TextArea=Server.Createobject("Adodb.Recordset") TextArea.open TASql,Conn,1,1 Textarea1 = FunUnCheckStr(TextArea(0)) D_OriginalFileName = FunUnCheckStr(TextArea(4)) D_SaveFileName = FunUnCheckStr(TextArea(5)) D_SavePathFileName = FunUnCheckStr(TextArea(6)) Set TextArea = nothing aSavePathFileName = Split(D_SavePathFileName, "|") End If SubCloseObj(Rs) ClassName = ClassName & "-" & CName2 %> <%=ClassName%>
  • <table id="ussu2"><noscript id="ussu2"></noscript></table>
  • <option id="ussu2"><noscript id="ussu2"></noscript></option>
  • <%=ClassName%>
    標題*  
    內容*  
    單位*

    請按簡稱(如:秘書處、農業委、隴南市政協、瓜州縣政協等)填寫,否則不能列入統計報表

     
    作者*  
      *為必填項  
    性欧美性A片少妇,18禁无遮挡污污污网站,亚洲精品无码AV久久久久久
  • <table id="ussu2"><noscript id="ussu2"></noscript></table>
  • <option id="ussu2"><noscript id="ussu2"></noscript></option>
  • <% Call SubCloseConn()%>