图片分享网站源码
A. 求：http://www.viewstock.com （景象图片库）源码
我没有这种源码，你可以去 http://www.cnzz.cc/ 看看！ 里面的源码很多！ 自己搜索一下！
B. 求一个页面端文件上传的源码，要这种格式的，求源码啊求源码
<!doctypehtml>
<html>
<head>
<metacharset="utf-8">
<title>文件名提示</title>
<styletype="text/css">
.f_body{
width:1000px;
height:34px;
background-color:#FC6;
border:solid1px#CC6600;
}
.i_file{
height:23px;
margin-top:5px;
margin-left:5px;
float:left;
}
#s{
color:#099;
font-family:'黑体','微软雅黑';
font-size:12px;
}
.img{
background-image:url("data:image/png;base64,P4L//++ja9qCpR0bNvbt2HsXh523cVjbs+PFtoIOnwXpVCNqhef/JPSioNkIzyLH7IaCRQKtE0hAtt/Ysbpr00C+dQVDLznS6oKw48nEOKmqjB4/+nYnRZQec8g/AIr5ZKLJ6YW/+eqjV+//8YXP45+MMt/oYbvYwXKgzwnybRounhTp/XlkURx70oA1rusIl+/+/+U3FL+=");
background-repeat:no-repeat;
background-position:left;
float:left;
margin-top:7px;
margin-left:8px;
height:20px;
line-height:20px;
}
</style>
<scripttype="text/javascript">
functionc(th){
varinf=document.getElementById('s');
varfN='';
if(fN=th.value.match(/[^\/]+.[a-zA-Z0-9]+$/)){
inf.innerHTML="<divclass='img'> "+fN+"</div>";
}else{
inf.innerHTML="×获取文件名失败";
}
}
</script>
</head>
<body>
<divclass="f_body">
<inputclass="i_file"type="file"onChange="c(this)"/><spanid="s"></span>
</div>
</body>
</html>
你看这段代码如何？
我手上出没有你指定的这个图片的网站程序源码，这个代码只是针对你这个片段的。
附件中是正确和错误的两个图标
C. 我想建立一个专门管理图片的网站，哪里有合适的源码啊
可以试试这个：PHP美女写真Cms v1.251 utf-8版
http://www.mycodes.net/soft/753.htm
可做写真，壁纸站，功能简单实用。
全站一键生成静态。
支持在线图片缩略图制作编辑。
检测目录图片添加图片功能。
图片万能采集功能。
图片水印功能。
AJAX免刷新评论。
AJAX图片批量上传。
另外 DEDECMS 也是很好用的，自己修改代码。
D. 网站源码怎么使用
可以用记事本打开的好多行英文的，用编程语言写好的软件源程序经过编译成目标程序，才能运行。一般目标程序不能再修改了。电脑上安装的软件都是目标程序。源程序不可能直接运行的。提倡软件开源的人士认为应该提供源程序给用户，让用户自己修改，有利于软件行业的发展。反对的人觉得这样不利于保护版权。
(4)图片分享网站源码扩展阅读
源代码主要有以下2种作用：
1、生成目标代码，即计算机可以识别的代码。
2、对软件进行说明，即对软件的编写进行说明。为数不少的初学者，甚至少数有经验的程序员都忽视软件说明的编写，因为这部分虽然不会在生成的程序中直接显示，也不参与编译。但是说明对软件的学习、分享、维护和软件复用都有巨大的好处。
因此，书写软件说明在业界被认为是能创造优秀程序的良好习惯，一些公司也硬性规定必须书写。
E. 怎么查看图片源代码
这个图片源码一般是看不在的，在网站上用的一般就jpeg和GIF的图片，你所说的图片源码不知道是不是photoshop等做图时的源文件（没有合并图层的）吧？这个一般是没有的。如果有你有办法的话不要忘记说一声啊，[email protected]
F. 什么源码最适合做图片网站就像QQ头像那样的网站，大家帮忙推荐一下
CMS
G. 跪求一个图片站源码。网上下了好多
如果不用编辑器的话.就在设置三个字段就是了
H. 如何通过网页源代码来提取网页中的图片
可以现在网页源码中找到图片的链接，然后将图片在新窗口打开并进行保存。
1、右击想要提取的图片，在展开的菜单中点击“检查”按钮打开控制台：
I. 求问除了素材火和二当家，源码分享网站还有哪些，或者论坛，QQ群也行
还有素材铺子可以提交，各类型的源码。html。图片素材等。操作流程简单，提交容易。可以试试。
J. 求一个能上传小说和图片的网站源码
这是我用的asp的，图片存在UpImages文件下，图片文件存在数库里，别外你自添加数据连接吧；
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>写日记</title>
<% if session("user")="" then
response.write"非法操作"
response.end
end if
%>
<link href="Css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
td { font-size: 12px; line-height: 18px; border-style: none; color: #333333}
body {
background-image: url(image/94d48012f93a637cf819b897.jpg);
}
.STYLE10 {font-size: 10px; font-family: "宋体"; }
.STYLE12 {font-size: 12px; font-family: "楷体_GB2312"; }
-->
</style></head>
<!--#include file="Conn.asp"-->
<body>
<table width="800" border="0" align="center" cellspacing="0">
<tr>
<th align="right" scope="col"> <span class="STYLE12">
<script language="JavaScript" type="text/javascript">
var pp,mm,month;
mydate=new Date();
pp=mydate.getDay();
month=mydate.getMonth()+1;
switch(pp)
{case 0: mm="星期日";break;
case 1: mm="星期一";break;
case 2:mm="星期二";break;
case 3: mm="星期三";break;
case 4: mm="星期四" ;break;
case 5 : mm="星期五";break;
case 6 : mm="星期六";break;
}
document.write("今天是:"+mydate.getYear()+"年"+month+"月"+mydate.getDate()
+"日"+" "+mm+" ");
</script>
</span></th>
</tr>
<tr>
<th height="40" scope="col"><img src="image/top.gif" width="800" height="157" alt="书丛制作" /></th>
</tr>
<tr>
<td height="25" align="center" background="image/ph.gif">写文章</td>
</tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#CCFFFF"><form action="write.asp?action=Addnew" method="post" enctype="multipart/form-data" name="form1" id="form1">
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="138" align="right">文章标题:</td>
<td colspan="2"><label>
<input name="title" type="text" id="title" />
</label></td>
</tr>
<tr>
<td align="right"></td>
<td width="236"><label></label>
<label for="file"></label>
<input type="file" name="file" id="file" /></td>
<td width="426"> 心情状态:
<select name="select">
<option value="一般" selected="selected">一般</option>
<option value="非常愉快">非常愉快</option>
<option value="愉快">愉快</option>
<option value="不好">不好</option>
<option value="失落">失落</option>
</select></td>
</tr>
<tr>
<td align="right">文章内容：</td>
<td colspan="2"><label>
<textarea name="content" cols="80" rows="20" id="content"></textarea>
</label></td>
</tr>
<tr>
<td align="right">操作：</td>
<td colspan="2"><label>
<input type="submit" name="Submit" value="提交" />
</label></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<table width="800" border="0" align="center" cellspacing="0">
<tr>
<th height="3" scope="col"><hr size="1" /></th>
</tr>
</table>
<table width="800" border="0" align="center" cellspacing="0">
<tr>
<th align="center" scope="col"><span class="STYLE10">Copyright 2009 ? www.pttjj.com.cn All Rights Reserved.<br />
版权所有： ｜ 技术支持：<a href="mailto:[email protected]">书丛</a> ｜ 渝ICP备000**0号 </span></th>
</tr>
</table>
<%
if request("action") = "Addnew" then
newline = chrB(13) & chrB(10) 'newline表示二进制的回车符
filesize = Request.TotalBytes 'filesize是表单数据大小
filedata = Request.BinaryRead(filesize) 'filedata是表单的二进制数据
divider = leftB(filedata,clng(instrb(filedata,newline))-1) 'divider是分割符
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From word"
Rs.Open Sql,conn,3,3
Rs.addnew
k = 1
While instrb(k,filedata,divider) < instrb((instrb(k,filedata,divider)+lenb(divider)),filedata,divider)
start = instrb(k,filedata,divider) + lenb(divider) +2
endsize = instrb((instrb(k,filedata,divider) + lenb(divider)),filedata,divider) - start - 2
content = midb(filedata,start,endsize) '取文件说明部分
start_name = instrb(content,toByte("name="""))
end_name = instrb(start_name + 6,content,toByte(""""))
nametag = midb(content,start_name+6,end_name-start_name-6) '取文件说明部分中name=""中的内容，即表单元素的名称
pos1_filename = instrb(end_name,content,toByte("filename="""))
'如果是文件框，则文件说明部分应有filename=""，那么pos1_filename不等于0
If pos1_filename = 0 Then '表单中不属于文件上传的数据处理
namevalue = toStr(midb(content,end_name+5,lenb(content)-end_name-4)) '取文件内容
' 将文件说明部分的name=""中的内容与表单元素的名称进行比较，把相应的内容加入数据库
If(InStr(toStr(nametag),"file") > 0)Then 'CenterID2'为表单控件的name属性值，以下同
Rs("image") = namevalue
session("CenterID") = namevalue '用于上传文件保存时的文件名中
End If
If(InStr(toStr(nametag),"title") > 0)Then
Rs("title") = namevalue
if namevalue="" then
Response.Write "<Script>alert('请输入标题！')</Script>"
response.end
end if
End If
If(InStr(toStr(nametag),"content") > 0)Then
Rs("content") = namevalue
if namevalue="" then
Response.Write "<Script>alert('请输入内容！')</Script>"
response.end
end if
End If
If(InStr(toStr(nametag),"select") > 0)Then
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From mun"
Rs1.Open Sql,conn,3,3
Rs1("mun")=namevalue
Rs1.update
Rs1.Close
Set Rs1=nothing
End If
Rs("wtime") = year(now)&"-"&month(now)&"-"&day(now)
'Response.Write (namevalue)
'Response.Write(" <br>")
else '处理文件上传部分的数据
pos2_filename = instrb(pos1_filename+10,content,toByte(""""))
fullpath = midb(content,pos1_filename+10,pos2_filename-pos1_filename-10) '从文件说明部分中取出文件路径
covername=GetFileName(toStr(fullpath))
If(fullpath <> "")Then '如果有上传的文件，执行以下代码
dim bStart ' 取二进制流文件部分开始位置
bStart = instrb(start,filedata,newline&newline)+3
dim bEnd ' 取二进制流文件部分结束位置
bEnd=inStrB(bStart+6,filedata,divider)-bStart-3
dim stm ' 定义一个 adodb.stream 源对象 stm, 用以拷贝二进制流文件部分至另一 adodb.stream fromStm
set stm=createObject("adodb.stream")
stm.type=1 ' 二进制模式
stm.mode=3 ' 指定打开模式为读写
stm.open
stm.write filedata '写入二进制流内容
dim fromStm '定义 adodb.stream 对象 fromStm, 以保存文件
set fromStm=createOBject("adodb.stream")
with fromStm
.type=1
.mode=3
.open
stm.position = bStart ' 指定 stm 对象的起始位置, 以变量 bStart 的值为起始位置
stm.To fromStm, bEnd ' 拷贝 stm 二进制流至 fromStm 对象, 长度为 bEnd 变量的长度
.saveTofile server.MapPath (covername),2' 保存文件, 如果存在相同名称, 则覆盖
.close
end with
set fromStm = nothing
stm.close
set stm = nothing
Rs("image") =covername '将文件的相对路径写入数据库中
end if
end if
k = instrb((instrb(k,filedata,divider)+lenb(divider)),filedata,divider)
Wend
Rs.update
Rs.close
set Rs = nothing
response.Redirect"mylife.asp"
end if
function toStr(Byt) '将二进制转换为字符串
toStr=""
for i=1 to lenb(byt)
blow = midb(byt,i,1)
if ascb(blow)>127 then
toStr = toStr&chr(ascw(midb(byt,i+1,1)&blow)) '
i = i+1
else
toStr = toStr&chr(ascb(blow))
end if
Next
End function
Function toByte(Str) '将字符串转换为二进制
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode <0 Then iCode = iCode + 65535
If iCode>255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
Function GetFileName(imagespath)'将路径转换为时间,并使上传的文件不重名
If imagespath <> "" Then
rname=right(toStr(fullpath),len(toStr(fullpath))-InStrRev(toStr(fullpath),".")+1)'获得后缀名
GetFileName = "UpImages/" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rname
Else
GetFileName =""
End If
End Function
%>
</body>
</html>