upload.asp

FLASH日记本 FLASH日记本

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本
HYname=Request("HYname")
  set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan where HYname='"&HYname&"'"
  rs.open SQL,conn,1,1
  if not rs.eof then
    Response.Write("HYname="&rs("HYname")&"&")
	Response.Write("HYsex="&rs("HYsex")&"&")
	Response.Write("HYhome="&rs("HYhome")&"&")
	Response.Write("HYhomeRadem="&rs("HYhomeRadem")&"&")
	Response.Write("HYQQ="&rs("HYQQ")&"&")
	Response.Write("HYemail="&rs("HYemail")&"&")
	Response.Write("diary_title="&rs("diary_title")&"&")
	Response.Write("diary_birthday="&rs("diary_birthday")&"&")
	Response.Write("diary_foreword="&rs("diary_foreword")&"&")
    Response.Write("UP_diary=1&")	
	rs.close
    set rs=Nothing
    CloseDataConn()
	Response.End()
  else
    Response.Write("UP_diary=0")
	rs.close
    set rs=Nothing
  end if
%>