var_pen.asp

一路飞扬在线同学录单班级版,主要用于个人系统中的同学录,不过对于学习有帮助!

<%
dim gconn,myrs
	set gconn=server.CreateObject ("adodb.connection")
	gconn.Open "Driver={Microsoft Access Driver (*.mdb)};password=8888;dbq=" & server.MapPath ("guest/save/guestbook.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_pen where id="&id
	'sq="select * from tuya_pen order by date_t desc"
	'sq="select top 1 * from tuya order by date_t desc"
	'response.Write sq
	'response.End 
	myrs.Open sq,gconn,1,3
	response.Write "&bkcolor=" & myrs("bkcolor")&"&count="&myrs("count") & "&str="&myrs("tuya")&"&bishua="&myrs("bishua")&"&"
	gconn.Close ()
	'response.Write sq
end function

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

function showid()
	sq="select * from tuya_pen 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

%>