<%
function htmlencode(str)
htmlencode=replace(replace(replace(str,chr(13)," "),"'","''"),chr(32)," ")
end function
%>
<%
function modifycode(str)
modifycode=replace(replace(replace(str," ",chr(13)),"'","''")," ",chr(32))
end function
%>
<%
startime=timer()
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
Response.Write "Çë²»Òª²ÉÓÃteleport/Webzip/Flashget/OfflineµÈ¹¤¾ßÀ´ä¯ÀÀÉ̳ǣ¡"
Response.End
End If
Session.Timeout=15
if request("b_rules")=1 then
Response.Buffer = True
else
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
end if
db="inc/#database.asp"
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'Èç¹ûÄúµÄ·þÎñÆ÷²ÉÓýÏÀϰ汾AccessÇý¶¯£¬ÇëÓÃÏÂÃæÁ¬½Ó·½·¨
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")
ON ERROR RESUME NEXT
if err.number<>0 then
err.clear
set conn=nothing
response.write "Êý¾Ý¿âÁ¬½Ó³ö´í£¡"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "Êý¾Ý¿âÁ¬½Ó³ö´í£¡"
Response.End
end if
end if
Function srequest(ParaName,ParaType)
Dim ParaValue
ParaValue=ParaName
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "²ÎÊý" & ParaName & "±ØÐëΪÊý×ÖÐÍ£¡"
Response.end
End if
else
ParaValue=replace(ParaValue,"'","''")
ParaValue=replace(ParaValue,"'","¡¯")
ParaValue=replace(ParaValue,";","£»")
ParaValue=replace(ParaValue,">","¡·")
ParaValue=replace(ParaValue,"<","¡¶")
ParaValue=replace(ParaValue,"=","£½")
ParaValue=replace(ParaValue,"%","£¥")
ParaValue=replace(ParaValue,",","£¬")
ParaValue=replace(ParaValue,".","¡£")
ParaValue=replace(ParaValue,"@","£¤")
ParaValue=replace(ParaValue,"*","£ª")
ParaValue=replace(ParaValue,"?","£¿")
ParaValue=replace(ParaValue,"(","£¨")
ParaValue=replace(ParaValue,")","£©")
ParaValue=replace(ParaValue,"#","££")
ParaValue=replace(ParaValue,"!","£¡")
ParaValue=Lcase(ParaValue)
If Instr(ParaValue,"select") or Instr(ParaValue,"<") or Instr(ParaValue,">") or Instr(ParaValue,"insert") or Instr(ParaValue,"delete") or Instr(ParaValue,"count(") or Instr(ParaValue,"table") or Instr(ParaValue,"update") or Instr(ParaValue,"truncate") or Instr(ParaValue,"asc(") or Instr(ParaValue,"mid(") or Instr(ParaValue,"char(") or Instr(ParaValue,"xp_cmdshell") or Instr(ParaValue,"exec%20master") or Instr(ParaValue,"net%20localgroup%20administrators") or Instr(ParaValue,":") or Instr(ParaValue,"net%20user") or Instr(ParaValue,"'") or Instr(ParaValue,"%20or%20") then
Response.write "²ÎÊý" & ParaName & "ÓÐÎÊÌ⣡"
Response.end
end if
ParaValue=replace(ParaValue,"'","''")
ParaValue=replace(ParaValue,"%","")
End if
srequest=ParaValue
End function
%>
<%function time_out()
if session("userperloginname")="" then
response.write""
response.end
end if
end function
%>
Embroidery digitizing
ordering
What you need to do is just email us attached your logos which need to be digitized and inform us the size and colors for them. It quite easy! Below is required info for orders or quote request 1: Quote or Order. 2: Design name. 3: LOGO SIZE IN Inch, Centimeter or Millimeter. (You may indicate only width or height, so the other side will go proportionately) 4: No. of Colors. 5: Fabric/Material. 6: Location (hat, left chest etc) 7: Stitches Type (IF require) 8: Formats. Also, if you need more changes on you artwork files, please draw the instruction on the picture, so we can precise digitize logo for you .Also important, better picture quality will help us digitize better artwork. Send order by e-mail: greatwallemb@188.com mail@greatwallemb.com
HOME | about us | FAQ | testimonials | pricing | gallery | ordering | contact us © 2006 http://www.greatwallemb.com All Rights Reserved. Great Wall embroidery digitizing. Air Compressor