" Else 'response.Write vPkValue&"aaa
" SetVar "InfoItemTitle",""&GbLimitTitle(objPage_Permit_View.Title,14)&"" End If end if SetVar "InfoItemCreateDate",Take8BitDate(objPage_Permit_View.CreateTime) Parse "SubItemList1",false SetVar "SubItemList2","" Parse "ItemList",true j=j+1 if j>=MaxPerPage then exit do objPage_Permit_View.movenext loop If vProTitle<>"" Then SetVar "SubItemList1","" SetVar "MoreInfo","更多>> " Parse "SubItemList2",false Parse "ItemList",true SetVar "MoreInfo","" End If if j
" end if end with set objPage_Permit_View=nothing if err then UnloadTemplate response.write "Show the content by pkvalue error" response.end end if end Function Function ShowView2ByPkValue Dim ObjPage_Permit_View set ObjPage_Permit_View=New ClsPage_Permit_View With ObjPage_Permit_View .GetOneByPkValue vPkValue 'response.Write(.recordcount&"
") '测试用 IF Not .Eof Then 'response.Write(vProductsTrade&"
") '测试用 SetVar "Body","
| "&gCheckNullStr(.Title)&" |
" Else SetVar "Body","参数非法！" End If End With Set ObjPage_Permit_View=Nothing if err then UnloadTemplate response.write "Show the curve by pkvalue error" response.end end if End Function Function ShowView3ByPkValue on error resume next LoadTemplate server.mappath(vTemplatePath) & "/Services.htm", "Body" dim objPage_Permit_View set objPage_Permit_View=new clsPage_Permit_View with objPage_Permit_View .GetOneByPkValue vPkValue if .eof then SetVar "FormDownloadBody","" else SetVar "Title",gCheckNullStr(.Title) SetVar "CreateDate",gCheckNullStr(.CreateTime) '----------------------------------------------------------------- ShowUploadLinkInfo gCheckNullStr(.StrPk) '----------------------------------------------------------------- SetVar "DownloadBody",gTextToHtml(.Body,.BodyType) if err then set objPage_Permit_View=nothing UnloadTemplate response.write "Show the News Error" response.end end if end if end with set objPage_Permit_View=nothing Parse "Body",false if err then UnloadTemplate response.write "Show the service by pkvalue Error" response.end end if End Function Function ShowUploadLinkInfo(vStrPk) on error resume next dim objUpload_LinkInfo set objUpload_LinkInfo=new clsUpload_LinkInfo with objUpload_LinkInfo .GetAllByAdvQuery "Select FileId From GB_Upload_LinkInfo Where StrPk='"&vStrPk&"'" if .eof then SetVar "DownloadFileInfo","" else '----------------------------------------------------------------- ShowUploadFileInfo gCheckNullStr(.FileId) '----------------------------------------------------------------- end if end with set objUpload_LinkInfo=nothing end Function Function ShowUploadFileInfo(vFileId) on error resume next dim objUpload_FileInfo,vFileSize set objUpload_FileInfo=new clsUpload_FileInfo with objUpload_FileInfo .GetOneByPkValue vFileId if Not .eof then vFileSize=int(gCheckNullStr(.FileSize)) if vFileSize=0 then SetVar "FileSize","0 字节" else if vFileSize<1000 then SetVar "FileSize",vFileSize&" 字节 ("&vFileSize&" 字节)" else if vFileSize<1024 then SetVar "FileSize",vFileSize&" 字节 ("&int(vFileSize/1000)&","&right(vFileSize,3)&" 字节)" else if vFileSize<102400 then SetVar "FileSize",left((int(vFileSize*100/1024)*10+1)/1000,4)&" KB ("&int(vFileSize/1000)&","&right(vFileSize,3)&" 字节)" else if vFileSize<1000000 then SetVar "FileSize",int(vFileSize/1024)&" KB ("&int(vFileSize/1000)&","&right(vFileSize,3)&" 字节)" else if vFileSize<1024000 then SetVar "FileSize",int(vFileSize/1024)&" KB ("&int(vFileSize/1000000)&","&right(int(vFileSize/1000),3)&","&right(vFileSize,3)&" 字节)" else if vFileSize<1048576 then SetVar "FileSize","0"&left((int(vFileSize*100/1024/1024)*10+1)/1000,3)&" MB ("&int(vFileSize/1000000)&","&right(int(vFileSize/1000),3)&","&right(vFileSize,3)&" 字节)" else if vFileSize<104857600 then SetVar "FileSize",left((int(vFileSize*100/1024/1024)*10+1)/1000,4)&" MB ("&int(vFileSize/1000000)&","&right(int(vFileSize/1000),3)&","&right(vFileSize,3)&" 字节)" else if vFileSize<1000000000 then SetVar "FileSize",int(vFileSize/1024/1024)&" MB ("&int(vFileSize/1000000)&","&right(int(vFileSize/1000),3)&","&right(vFileSize,3)&" 字节)" else SetVar "FileSize",vFileSize&" 字节" end if end if end if end if end if end if end if end if end if SetVar "UpdateTime",FormatDateTime(.UploadTime,2) SetVar "FilePath","../../Base/AdvUpload/DownloadFile.asp?FID="&vFileId&"&PkValue="&vPkValue SetVar "DownloadAddress",gCheckNullStr(.FileName) '----------------------------------------------------------------- ShowUploadDownInfo gCheckNullStr(.FileName) '----------------------------------------------------------------- end if end with set objUpload_FileInfo=nothing end Function Function ShowUploadDownInfo(vFileTitle) on error resume next dim objUpload_DownInfo set objUpload_DownInfo=new clsUpload_DownInfo with objUpload_DownInfo .GetAllByAdvQuery "Select DownTime From GB_Upload_DownInfo Where Comment='"&vFileTitle&"' Order by DownTime Desc" if .eof then SetVar "DownloadCount",0 SetVar "LastDownloadTime","None Download" else SetVar "DownloadCount",.RecordCount SetVar "LastDownloadTime",gCheckNullStr(.DownTime) end if end with set objUpload_DownInfo=nothing end Function Function Check_PkValue_Order dim objPage_Permit_View set objPage_Permit_View=new clsPage_Permit_View objPage_Permit_View.GetAllByQuery strQuery Dim k K=1 Do While Not objPage_Permit_View.eof If objPage_Permit_View.PermitID=vPkValue Then If (K mod MaxPerPage)=0 Then Check_PkValue_Order=K\MaxPerPage Else Check_PkValue_Order=(K\MaxPerPage)+1 End If Exit Do'当找到对应的PermitID时退出循环并返回页值 Else K=K+1 End IF objPage_Permit_View.MoveNext Loop set objPage_Permit_View=nothing End Function '========================================= '对页面权限进行检测结束并显示相关提示 '========================================= Function CheckPermitByPkValue dim objPage_Permit_View set objPage_Permit_View=new clsPage_Permit_View with objPage_Permit_View .GetOneByPkValue vPkValue If .eof Then SetVar "Body","
对不起！
没有找到相关内容
对不起！您的权限不够。
至少要高级用户登录后，才能浏览本页面。
对不起！您的权限不够。
至少要普通用户登录后，才能浏览本页面。