博客首页 > 其他内容
增加分类时方便复制代码
2024/12/12 12:48:57
<%
'循环
class_id=5
num=0'第几个内容
fen="sohokey"
Set Rs=Server.CreateObject("ADODB.Recordset")
sql ="select * from data_e_news2 where class_id=" & Clng(class_id) * 1000 &" order by id asc"
rs.open sql,conn,1,1
if rs.eof then
else
Do While Not rs.Eof
stra=replace(rs("words"),""",chr(34))
stra=stra & fen & fen & fen & fen
strs1=split(stra,fen)(0)'获取第一个参数的第一个文本框内容
strs2=split(stra,fen)(1)'获取第一个参数的第二个文本框内容
words5num0 =words5num0 & strs1 & "$" '获取的所有内容组合到一块
words5num1 =words5num1 & strs2 & "$"
a1=split(words5num0,"$")(0)'第一个参数，第一个文本
a2=split(words5num1,"$")(0)'第1个参数，第二个文本
rs.MoveNext
loop
end if
rs.close
set rs=nothing
%><%
'单一
Set Rs=Server.CreateObject("ADODB.Recordset")
sql ="select * from data_e_news2 where id=10 order by sort desc,id asc"
rs.open sql,conn,1,1
if rs.eof then
else
stra=replace(rs("words"),""",chr(34))
stra=stra & "sohokey"
str1=split(stra,"sohokey")(0)'获取第一个内容
str1=split(stra,"sohokey")(1)'获取第2个内容
end if
rs.close
set rs=nothing
%>
