圖片分享網站源碼

發布時間: 2022-12-13 03:29:36

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'>&nbsp;&nbsp;&nbsp;"+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">

</style></head>

<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>

閱讀全文

熱點內容

sql2008伺服器發布：2025-05-15 11:03:27 瀏覽：305

我的世界pe伺服器創造發布：2025-05-15 10:51:17 瀏覽：608

移動端打吃雞要什麼配置發布：2025-05-15 10:48:16 瀏覽：756

我的世界哪五個伺服器被炸了發布：2025-05-15 10:36:16 瀏覽：994

ehcache存儲對象發布：2025-05-15 10:35:31 瀏覽：528

搭建虛擬電腦的伺服器發布：2025-05-15 10:29:31 瀏覽：270

湖人雙核配置哪個最好發布：2025-05-15 10:09:48 瀏覽：980

手機熱點密碼怎麼查看發布：2025-05-15 09:54:47 瀏覽：109

生意發力雲存儲發布：2025-05-15 09:54:45 瀏覽：617

編寫一個shell腳本添加用戶發布：2025-05-15 09:54:43 瀏覽：506

圖片分享網站源碼

與圖片分享網站源碼相關的資訊