"
Response.Write " | 联盟论坛重新排序 |
|---|
"
Response.Write ""
Response.Write "| "
Response.Write "注意：请在相应论坛的排序表单内输入相应的排列序号，注意不能和别的联盟论坛有相同的排列序号。"
Response.Write " | "
Response.Write "
"
Response.Write ""
set rs= server.createobject ("adodb.recordset")
sql="select * from dv_bbslink where id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有找到相应的联盟论坛。"
else
response.write ""
end if
rs.close
set rs=Nothing
Response.Write" | "
Response.write""
Response.write""
Response.write""
Response.write""
Response.write"| 当前排序情况 |
|---|
"
Response.Write ""
Dim a
a=0
Set rs=Dvbbs.Execute("select id,boardname from dv_bbslink order by id")
Do While Not Rs.EOF
Response.Write "| "
Response.Write Rs(0)
Response.Write "、"
Response.Write Rs(1)
Response.Write " | "
Rs.MoveNext
a=a+1
If a=4 Then
a=0
Response.Write " |
|---|
"
End If
Loop
Set rs=Nothing
Response.Write " "
Response.Write " |
|---|
"
Response.Write " "
Response.Write" |
"
Response.write"
"
end sub
sub updateorders()
if isnumeric(request("id")) and isnumeric(request("newid")) and request("newid")<>request("id") then
set rs=Dvbbs.Execute("select id from dv_bbslink where id="&request("newid"))
if rs.eof and rs.bof then
sql="update dv_bbslink set id="&request("newid")&" where id="&cstr(request("id"))
Dvbbs.Execute(sql)
response.write "更新成功！"
else
response.write "更新失败，您指定了和其他联盟论坛相同的序号！"
end if
else
response.write "更新失败！您输入的字符不合法，或者输入了和原来相同的序号！"
end if
end sub
sub loadlinkList()
Set Rs = Dvbbs.Execute("Select ID From Dv_Style")
If Not (Rs.Eof And Rs.Bof) Then
Do While Not Rs.Eof
LoadXslttemplate Rs(0)
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs=Nothing
end sub
Sub saveall()
Dim IDlist,id,i,tmpstr
ID=Request.form("id")
id=Replace(id," ","")
IDlist=","&ID&","
ID=split(id,",")
For i=0 to UBound(id)
tmpstr=","&ID(i)&","
If InStr(IDlist,tmpstr)>0 Then
If InStr(Len(tmpstr)-1+InStr(IDlist,tmpstr),IDlist,tmpstr)>0 Then
Errmsg=ErrMsg + "发现相同的序号："&ID(i)&",请返回仔细检查。"
Exit For
End If
End If
Next
If Errmsg<>"" Then
dvbbs_error()
End If
'清除原来数据表中的数据,打篮球，五进五出了。：）
Dvbbs.Execute("Delete from dv_bbslink")
'开始利用循环插入数据
Dim sql,boardname,readme,url,logo,islogo
For i= 0 to UBound(id)
boardname=fixjs(Request.form("boardname"&i))
readme=fixjs(Request.form("readme"&i))
url=fixjs(Request.form("url"&i))
logo=fixjs(Request.form("logo"&i))
islogo=Request.form("islogo"&i)
sql="insert into dv_bbslink (id,boardname,readme,url,logo,islogo) values ("&CInt(id(i))&",'"&boardname&"','"&readme&"','"&url&"','"&logo&"',"&CInt(islogo)&")"
Dvbbs.Execute(sql)
Next
loadlinkList()
Dv_suc("论坛批量更新成功！")
End Sub
Sub LoadlinkList()
Dim rs
Set Rs=Dvbbs.Execute("select * From Dv_bbslink Order by islogo desc,id ")
Set Application(Dvbbs.CacheName & "_link")=Dvbbs.RecordsetToxml(rs,"link","bbslink")
Set Rs=Nothing
End Sub
%>