Клубове

ASP + HTML

11 отговора 496 прегледа
Morphios #1

ASP + HTML

Imam slednata postanovka:

<html>
<head>
...
</head>

<body topmargin="0" leftmargin="0">

<%

...
...

%>

Waprosa e zashto pri vizualirirane na stranicata ne se wzima w predwid marginite ot body-to?

Nobody is perfect. My name is Nobody.
Отговор
bofh в отговор на Morphios #2

Re: ASP + HTML

Няма връзка с ASP-то. Незнам точно какво искаш да постигнеш, но пробвай да добавиш marginheight="0" marginwidth="0"

bofh
Отговор
Morphios в отговор на bofh #3

Re: ASP + HTML

marginwidth="0" marginheight="0" е за Netscape... но както и да е... и тези ги има... за всеки скучай че се погледне и през NEtscape. Аме пустото не ще и не ще...
Интересното е когато пиша <body>-то чрез APS-то. Тогава имам 2 тага с боди и ми се вдига съдържанието само с 1 ред?!

Nobody is perfect. My name is Nobody.
Отговор
bofh в отговор на Morphios #4

Re: ASP + HTML

Ами защо не paste-неш малко код?

bofh
Отговор
Morphios в отговор на bofh #5

Re: ASP + HTML

Abe tia stana edna boza kato go peistnah... ama dano se razbira... (tia ot DIR-a shto ne go uvelichat malko t'wa polence) :)


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Some Name</title>
<style> body { scrollbar-face-color: #48748E; scrollbar-shadow-color: #005086; scrollbar-highlight-color: #8BD1FF; scrollbar-3dlight-color: #000000; scrollbar-darkshadow-color: #000000; scrollbar-track-color: #666666; scrollbar-arrow-color: #ffffff; }
a:link { cursor: arrow; font-weight: bold; font-size: 11px; color: navy; font-family: verdana, arial, helvetica; text-decoration: none }
a:visited { font-weight: bold; font-size: 11px; color: navy; font-family: verdana, arial, helvetica; text-decoration: none }
a:hover { font-weight: bold; font-size: 11px; color: #48748E; font-family: verdana, arial, helvetica; text-decoration: underline }
td { font-weight: normal; font-size: 11px; color: navy; font-family: verdana, arial, helvetica; text-decoration: none }
.desc { font-family: verdana, arial, helvetica; color: gray; text-align: justify; font-size: 10px }
.url { font-family: verdana, arial, helvetica; color: #48748e; font-style: italic; font-size: 10px }
.date { font-weight: bold; font-family: verdana, arial, helvetica; color: #ffffff; font-size: 10px }
.normal { line-height: 1.5 } .button { font-size: 8pt; background-color: #B5C1C8 }
.box { font-family: Verdana; font-size: 8pt; color: #000000; background-color: #B5C1C8 }
.redbox { font-family: Verdana; font-size: 8pt; color: #ffffff; background-color: darkred }
.darkred { font-weight: bold; font-family: Verdana; font-size: 8pt; color: darkred }
</style>
</head>

<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<!--E t'va e -->

<%

Response.write ("<script language=""JavaScript"">")
Response.write ("function prn(){")
Response.write ("window.print()")
Response.write ("}")
Response.write ("</script>")
Response.write ("<a href=""javascript:prn()"" onmouseover=""window.status='Отпечатване на справката'; return true"" title=""Отпечатване на справката"">Отпечатване на тази страница</a>")
Dim lg
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")

Conn.Open "Provider=SQLOLEDB; Data Source=SERVERNAME; Initial Catalog=DATABASE NAME; User ID=USERIDsa; Password=SOMEPASSWORD"

sSQL = "select * from Articul"

Set Rs = Conn.Execute(sSQL)

Response.Write "<table border=""1"" bordercolor=""navy"" width=""100%"" cellspacing=""0"" cellpadding=""0"" bgcolor=""#B5C1C8"">" 'Nachalo na tablicata
Response.Write "<tr>" & "
" Response.Write "<td width=""5%"" style=""padding: 2"" align=""center"">" & "Код" & "</td>" '
Response.Write "<td width=""25%"" style=""padding: 2"" align=""center"">" & "Артикул" & "</td>"
Response.Write "<td width=""15%"" style=""padding: 2"" align=""center"">" & "Единична цена" & "</td>" '
Response.Write "<td width=""30%"" style=""padding: 2"" align=""center"">" & "Последна промяна на:" & "</td>" '
Response.Write "</tr>" 'Krai na parvi red na tablicata

Response.Write "<tr>" & "
" Response.Write "<td width=""5%"" style=""padding: 2"" valign=""top"">" 'Kolona nomer na artikul
Do While NOT Rs.EOF
Response.Write Rs.Fields("NomNumber") & "
"
Rs.MoveNext
Loop
Response.Write "</td>" 'Krai na kletkata

Response.Write "<td width=""45%"" style=""padding: 2"" valign=""top"">"
Rs.MoveFirst
Do While NOT Rs.EOF
Response.Write Rs.Fields("Name") & "
"
Rs.MoveNext
Loop
Response.Write "</td>"

Response.Write "<td width=""15%"" style=""padding: 2"" valign=""top"" align=""center"">"
Rs.MoveFirst
Do While NOT Rs.EOF
Response.Write Rs.Fields("SinglePrice") & "
"
Rs.MoveNext
Loop
Response.Write "</td>"

Response.Write "<td width=""30%"" style=""padding: 2"" valign=""top"" align=""right"">"
Rs.MoveFirst
Do While NOT Rs.EOF
Response.Write Rs.Fields("LastChange") & "
"
Rs.MoveNext
Loop
Response.Write "</td>"
Response.Write "</tr>"

Response.Write "</table>"


Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
</html>


Nobody is perfect. My name is Nobody.
Отговор
bofh в отговор на Morphios #6

Малко корекции


Относно въртенето на тоз рекордсет



я погледни следното 5 мин. примерче:



NomNumber,Name,SinglePrice,LastChange



Function FetchArticulInfo

Dim rs, fldNum,fldName,fldSinglePrice,fldLastChange

...........

strSQL = "SELECT NomNumber,Name,SinglePrice,LastChange FROM Articul"



Set rs=Conn.Execute(strSQL) 

Set fldNum=rs("NomNumber") 'field binding

Set fldName=rs("Name") 

.....

Set fldLastChange=rs("LastChange")



Do while not rs.EOF 



'mozhesh da polzvash i string t.e wmesto ADO bindinga da 

'slozhish strName = rs("name") wytre w cikyla



	strNameEncap = "<td width=""30%"" style=""padding: 2"" valign=""top"" align=""right"">" & _

			fldName & "</td>" & vbCrLf 'ili chr(13)

	strNumEncap = "blabla" & fldNum & "blabla" & vbCrLf

	...........

	rs.movenext

Loop



'Sled koeto prawish kakwoto prawish s poluchenite stringowe

'i pishesh stringa s response.write ili go wryshtash

's FetchArticulInfo = strName & strFoo i taka...





Sega tova beshe wariant 1



pogledni sega wariant 2



.....

Dim myDataArray

.....

Set rs=Conn.Execute(strSQL) 

MyDataArray = rs.GetRows 'GetRows ima parametri,mozhesh da si gi poglednesh

rs.Close

Set rs=Nothing

'blabla clean up deemek

......



For i=0 to UBound(MyDataArray,2) 'Upper bounds ama e 2d masiv



strNum = strNum & "<td ...." & MyDataArray(0,i) & "</td>" & vbCrLf

strName = strName & "<td ...." & MyDataArray(1,i) & "</td>" & vbCrLf

strSPrice = strSPrice & MyDataArray(2,i) & "</td>" & vbCrLf

.....

Next



Ади успех :)



PS. Това обаче не решава проблема с маргините. 

А междувпрочем и java script функцията,

не е нужно да я пишеш с response.write 

може да си е в html-a

Редактирано от bofh на

Отговор
Morphios в отговор на bofh #7

Re: Малко корекции

Благодаря за вариантите (спести ми писане, по случая инаш едно черпане като дойдеш в Библиотека), а т'ва с марджина... още го боря... Не става и нестава... да го еба...
Аре мерси ти още веднъж...

P.S.: Кю-то ми е 55487925

Nobody is perfect. My name is Nobody.
Отговор
Spuky в отговор на Morphios #8

Re: ASP + HTML

Kakwo zna4i ne se vzemat vpredvid marginite?
Imash razstoianie otgore, ili otstrani?

I v dvata varianta shte imash problemi ako izpolzvash tablici. Tehnite margini sashto triabva da se ustanoviat - cellspacing=0 cellpadding=0.

Pozdravi

Отговор
jamie в отговор на Spuky #9

Проблема е решен :-)

Преди доста време вече :-)))

don't waste my time - waste yours !
Отговор
Morphues в отговор на jamie #10

Re: Проблема е решен :-)

Problema si go reshih kato iznesoh tablicata izwan ASP-to... i kolonite se pulneha os ASP-to bez samoto to da chertae tablicata. No zashto kogato chertaia tablica s ASP izbutwa redowe nadolo ... poniatie si niamam...



What is real?!

Отговор
Godzilla в отговор на Morphues #11

Re: Проблема е решен :-)

Napravi li "View Document Source" v browsera, za da otkriesh prichinata?

Отговор
Morphios в отговор на Godzilla #12

Re: Проблема е решен :-)

хм... ти как мислиш?! Сигурно и там всичко си е наред по законите на HTML. Source-а го има по-нагоре пробвай го...



What is real?!

Nobody is perfect. My name is Nobody.
Отговор
Отговор в темата