var.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<%
dim gconn,myrs
	set gconn=server.CreateObject ("adodb.connection")
	gconn.Open "Driver={Microsoft Access Driver (*.mdb)};password=8888;dbq=" & server.MapPath ("db/tu.mdb")
	set myrs=server.CreateObject ("adodb.recordset")


if request("as")="insert" then
	into()
	'tuya=request("tuya")
	'response.Write "&ddd="&tuya
end if

if request("as")="show" then
		showid()
	
end if


if request("as")="paint" then
	paintid()
end if

function paintid()
	id=request("id")
	sq="select * from tuya where id="&id
	'sq="select top 1 * from tuya order by date_t desc"
	'response.Write sq
	'response.End 
	myrs.Open sq,gconn,1,3
	response.Write "&count=" &myrs("count") & "&str=" &myrs("tuya") & "&bgcolor=" &myrs("bgcolor")&""
	gconn.Close ()
	'response.Write sq
end function

function into()
	dim num3
	tuya=request("tuya")
	name=request("name")
	bgcolor=request("bgcolor")
	count=request("count")
	if tuya="" then
		response.write "&ddd=error&"
		response.End ()
	end if
	dim sq
	'sq="insert into tuya (bishua,tuya,name,count,bgcolor) values ("& bishua &",'"& tuya &"','"& name &"',"& count &",'"& bgcolor"')"
	sq="insert into tuya (tuya,name,count,bgcolor) values ('" &tuya&"','"&name&"',"&count&",'"&bgcolor&"')"
	response.Write sq
	'response.End 
	myrs.Open sq,gconn,1,3
	response.Write "&ddd="&tuya&""
	gconn.close()
end function

function showid()
	sq="select * from tuya order by date_t desc"
	myrs.Open sq,gconn,1,3
	response.Write sq
	tmp=""
	while not myrs.EOF and not myrs.BOF 
		tmp=tmp &"涂鸦号："& myrs("id")&" 涂鸦:"&myrs("name")&"||"
		myrs.MoveNext 
	wend
	
	response.Write "&showid1="&tmp&"&"
	gconn.Close()
	
end function

%>