📄 addphoto.asp

📁 这是一个文章管理的网页源程序

💻 ASP

字号:

<%Option Explicit%><!--#include file="data1.inc"-->
<%
dim rs,name
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
name=Session("admin")
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "admin where username='"&Name&"'",conn,3,3
rs("big").appendchunk mydata

rs.update
set rs=nothing
set conn=nothing %> 
<html>
<head>
<META http-equiv="refresh" content="600">
<title>成功上传相片!</title>
<style type="text/css">
<!-- A{TEXT-DECORATION:none} 
A:link{COLOR:#444444;} 
A:visited{COLOR:#444444;} 
A:active{COLOR:#444444;} 
A:hover{COLOR:#ff0080;text-decoration:underline} .p9{font-size:9pt;} td{font-size:9pt;} .p12{font-size:12pt} .p7{font-size:8pt}--></style>
<base target="_self">
</head>
<p align="center">　 <p align="center">相片上传成功!</p><p align="center"><font color="#FF0000"><script LANGUAGE="JavaScript">
function goHist(a) 
{
   history.go(a);   
}
</script>
<form METHOD="post">
  <p align="center"><input TYPE="button" VALUE="返回并刷新页面 " onClick="goHist(-2)" style="background-color: #FFFFFF; border: 1 solid #FF0000"></p>
</form>
</font>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -