daleicl.asp

仿世纪建站源码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!--#include file="config.inc"-->
<!--#include file="ubb.inc"-->
<%
dim iidd
iidd=request.QueryString("id")
if iidd="" then iidd=1
dim rs,rsstr
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from tp where id=" & iidd
rs.open rsstr,myc,1,2
if not rs.eof then
dim name,dj

name=ubb(rs("name"))
dj=ubb(rs("dj"))

end if
dim rss,rsstsr
set rss=Server.CreateObject("ADODB.Recordset")
rsstsr="select * from class where idd='" & iidd & "'"
rss.open rsstsr,myc,1,2

Function BBB()
     response.write "<card id='card1' title='编辑选项'><p align='left'>" & now() & "<br/>"
	if iidd=1 then 
     response.write "系统预置类别,不能修改!"
	else
     response.write "输入投票选项<br/>"
     response.write "<input name='name" & minute(now) & "" & second(now) & "' title='投票选项' value='" & name & "'/><br/>"
     response.write "输入选项票数<br/>"
     response.write "<input name='dj" & minute(now) & "" & second(now) & "' title='选项票数' format='*N' maxlength='6' value='" & dj & "'/><br/>"
     response.write "<br/><anchor>确定提交<go href='daleicl.asp?myid=" & myid & "&amp;ckk=zz&amp;id=" & iidd & "&amp;idss=" & idss & "' method='post' accept-charset='utf-8'>"
     response.write "<postfield name='name' value='$(name" & minute(now) & "" & second(now) & ")'/>"
     response.write "<postfield name='dj' value='$(dj" & minute(now) & "" & second(now) & ")'/>" 
     response.write "</go></anchor>" 
	end if
response.write "<br/><a href='daleicl.asp?myid=" & myid & "&amp;ckk=dd&amp;id=" & iidd & "&amp;idss=" & idss & "'>[增加选项]</a>"
End Function

Function ZZZ()

name=usb(request("name"))
dj=usb(request("dj"))


if name<>"" then rs("name")=name
if dj<>"" then rs("dj")=dj

rs.update
     response.write "<card id='card1' title='编辑选项' ontimer='dalei.asp?myid=" & myid & "&amp;idss=" & idss & "'><timer value='15'/><p align='left'>" & now() & "<br/>"
     response.write "编辑成功，正在返回选项管理...<br/>"
     response.write "<br/><a href='daleicl.asp?myid=" & myid & "&amp;ckk=dd&amp;idss=" & idss & "'>[增加选项]</a>"
End Function

Function CCC()
     response.write "<card id='card1' title='删除选项'><p align='left'>" & now() & "<br/>"
	if iidd=1 then 
     response.write "系统预置类别,不能删除!"
	else
     response.write "确定删除“" & ubb(rs("name")) & "”？<br/>"
     response.write "<a href='daleicl.asp?myid=" & myid & "&amp;ckk=yy&amp;id=" & iidd & "&amp;idss=" & idss & "'>确定</a>"
     response.write "<br/><a href='dalei.asp?myid=" & myid & "&amp;idss=" & idss & "'>取消</a>"
	end if
response.write "<br/><br/><a href='daleicl.asp?myid=" & myid & "&amp;ckk=dd&amp;idss=" & idss & "'>[增加选项]</a>"
End Function

Function YYY()
rs.delete
rs.update
  sql="update class set idd=1 where cstr(idd)='" & iidd & "'"
  myc.Execute(sql)

     response.write "<card id='card1' title='删除选项' ontimer='dalei.asp?myid=" & myid & "&amp;idss=" & idss & "'><timer value='15'/><p align='left'>" & now() & "<br/>"
     response.write "删除成功，正在返回选项管理...<br/>"
     response.write "<br/><a href='daleicl.asp?myid=" & myid & "&amp;ckk=dd&amp;idss=" & idss & "'>[增加选项]</a>"
End Function

Function DDD()
     response.write "<card id='card1' title='增加选项'><p align='left'>" & now() & "<br/>"
     response.write "选项名称(必填!)<br/>"
     response.write "<input name='name' title='选项名称'/><br/>"
     response.write "输入选项预制票数<br/>"
     response.write "<input name='dj' title='预制票数' format='*N' maxlength='6' value='" & dj & "'/>"

     response.write "<br/><anchor>确定提交<go href='daleicl.asp?myid=" & myid & "&amp;ckk=xx&amp;idss=" & idss & "' method='post' accept-charset='utf-8'>"
     response.write "<postfield name='name' value='$(name)'/>"
     response.write "<postfield name='dj' value='$(dj)'/>"
     response.write "</go></anchor>"
End Function

Function XXX()

name=usb(request("name"))
dj=usb(request("dj"))

if name="" or dj="" then response.redirect "daleicl.asp?myid=" & myid & "&ckk=dd&idss=" & idss & ""

rs.addnew
if name<>"" then rs("name")=name
if dj<>"" then rs("dj")=dj
rs.update
     response.write "<card id='card1' title='增加选项' ontimer='dalei.asp?myid=" & myid & "&amp;idss=" & idss & "'><timer value='15'/><p align='left'>" & now() & "<br/>"
     response.write "增加成功，正在返回选项管理...<br/>"
     response.write "<br/><a href='daleicl.asp?myid=" & myid & "&amp;ckk=dd&amp;idss=" & idss & "'>[增加选项]</a>"
End Function

Function NNN()
	If Request.QueryString("ckk") = "" Then
		AAA
	ElseIf Request.QueryString("ckk") = "bb" Then
		BBB
	ElseIf Request.QueryString("ckk") = "cc" Then
		CCC
	ElseIf Request.QueryString("ckk") = "dd" Then
		DDD
	ElseIf Request.QueryString("ckk") = "zz" Then
		ZZZ
	ElseIf Request.QueryString("ckk") = "yy" Then
		YYY
	ElseIf Request.QueryString("ckk") = "xx" Then
		XXX
	End If
End Function
%>

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<!--#include file="admin2.inc"-->
<%=NNN%><br/>
<a href='daleicl.asp?ckk=dd&amp;myid=<%=myid%>&amp;idss=<%=idss%>'>[增加选项]</a>
<br/><a href='dalei.asp?myid=<%=myid%>&amp;idss=<%=idss%>'>[选项列表]</a>
<br/>
<!--#include file="bb.asp"-->
<!--#include file="cc.asp"-->
</p></card></wml>
<%
rss.close
set rss=Nothing
rs.close
set rs=Nothing
	else
response.write"<card id='card1' title='管理选项'><p align='left'>非法数据!!<br/><a href='http://66HC.net'>第六感</a></p></card></wml>"
    end if
myc.close
set myc=nothing
%>