|
|
5#
楼主 |
发表于 2006-7-5 08:29:00
|
只看该作者
<%@ Language="VBScript" Codepage="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传验证</title>
</head>
<body>
<!-- #include file="Conn1.asp"-->
<% Dim ConnStr,myConn,mySQL
Dim myName,myImage,myType,mySize
Dim myRank,myLang,myTime,myContent
myName=request.form("name")
myImage=request.form("image")
myType=request.form("type")
mySize=request.form("size")
myRank=request.form("rank")
myLang=request.form("language")
myTime=request.form("refreshtime")
myContent=request.form("content")
mySQL="select * from downloads where Name='" & myName & " ' "
set myRes=myConn.Execute (mySQL)
if myRes.bof and myRes.eof then
mySQL="Insert into downloads(Name,Image,Type,Size,Rank,Language,RefreshTime,Content)"
mySQL=mySQL+"values ('"& myName &" ','"& myImage &"' ,'"& myType &" ','"& mySize &" ','"& myRank &" ','"& myLang &" ',#"& myTime &"#,'"& myContent &" ') "
myConn.Execute (mySQL)
response.write"你已经上传成功！"
%>
<%
else
response.write"上传失败！"
%>
<%
end if
rs.close
set rs=nothing
myConn.close
set myConn=nothing
%>
</body>
</html>
|
|
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 ) 
IP卡
狗仔卡
发表于 2006-7-5 05:33:00
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
订阅
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2006-7-5 07:29:00