UC知道无效使用 Null: 'split'/attach.asp, 第 16 行
来源：百度知道 编辑：UC知道 时间：2024/06/02 22:33:22
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from attach where newsid="&newsid
rs.Open rs.source,conn,1,1
do while not rs.eof
attachname=rs("attachname")
attachtype=rs("attachtype")
attachcontent=rs("attachcontent")
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select * from system"
rs1.Open rs1.source,conn,1,1
uploadtype=rs1("uploadtype")
rs1.close
set rs1=nothing
upload=split(uploadtype,",")
for i=0 to ubound(upload)
if attachtype=lcase(trim(upload(i))) then
filetype=true
exit for
else
filetype=false
end if
next
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from attach where newsid="&newsid
rs.Open rs.source,conn,1,1
do while not rs.eof
attachname=rs("attachname")
attachtype=rs("attachtype")
attachcontent=rs("attachcontent")
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select * from system"
rs1.Open rs1.source,conn,1,1
uploadtype=rs1("uploadtype")
rs1.close
set rs1=nothing
upload=split(uploadtype,",")
for i=0 to ubound(upload)
if attachtype=lcase(trim(upload(i))) then
filetype=true
exit for
else
filetype=false
end if
next
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../inc/pubFunction.asp" -->
<!--#include file="../../inc/checkSession.asp" -->
<%
Response.Expires = -1
Response.Expiresabsolute = Now() - 1
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>
<head>
<title>用户列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/form.css" rel="stylesheet" type="text/css">
<link href="../css/style2.css" rel="stylesheet" type="text/css"&g